Load libraries

library(Seurat)
library(princurve)
library(Revelio)
library(monocle)
library(gprofiler2)
library(seriation)
library(Matrix)
library(dplyr)
library(RColorBrewer)
library(ggplot2)
library(ggExtra)
library(cowplot)
library(wesanderson)

#Set ggplot theme as classic
theme_set(theme_classic())

Load integrated datasets

WT.KO.integrated <- readRDS("WT_KO.integrated.RDS")
DimPlot(WT.KO.integrated,
        reduction = "integrated_spring",
        group.by = "Lineage",
        pt.size = 1,
        cols =   c("#cc391b","#e7823a","#969696","#026c9a")
        ) + NoAxes()

Pseudotime in the WT

Extract CR and CP neurons

Neurons.data <-  subset(WT.KO.integrated,
                        subset = Lineage %in% c("Cajal-Retzius_neurons", "Pallial_neurons") & orig.ident == "Hem1" & Cell.ident.WT %in% c("Cajal-Retzius_neurons", "Pallial_neurons"))

DimPlot(Neurons.data,
        group.by = "Lineage",
        reduction = "integrated_spring",
        pt.size = 1,
        cols =  c("#cc391b","#026c9a")
        ) + NoAxes()

rm(WT.KO.integrated)
gc()
##            used  (Mb) gc trigger   (Mb)   max used   (Mb)
## Ncells  3373041 180.2    6124515  327.1    5658522  302.2
## Vcells 85672311 653.7  997791854 7612.6 1064969495 8125.1

Fit principale curve on the two lineages

Cajal-Retzius cells

Trajectories.Hem <- Neurons.data@meta.data %>%
                    select("Barcodes", "nCount_RNA", "Spring_1", "Spring_2", "AP_signature","BP_signature", "EN_signature", "LN_signature", "Lineage") %>%
                    filter(Lineage == "Cajal-Retzius_neurons")
fit <- principal_curve(as.matrix(Trajectories.Hem[,c("Spring_1", "Spring_2")]),
                       smoother='lowess',
                       trace=TRUE,
                       f = .7,
                       stretch=0)
## Starting curve---distance^2: 11526697569
## Iteration 1---distance^2: 13397620
## Iteration 2---distance^2: 13420664
## Iteration 3---distance^2: 13422248
#The principal curve smoothed
Hem.pc.line <- as.data.frame(fit$s[order(fit$lambda),]) 

#Pseudotime score
Trajectories.Hem$PseudotimeScore <- fit$lambda/max(fit$lambda)
if (cor(Trajectories.Hem$PseudotimeScore, Neurons.data@assays$RNA@data['Hmga2', Trajectories.Hem$Barcodes]) > 0) {
  Trajectories.Hem$PseudotimeScore <- -(Trajectories.Hem$PseudotimeScore - max(Trajectories.Hem$PseudotimeScore))
}

Pallial neurons

Trajectories.Pallial <- Neurons.data@meta.data %>%
                        select("Barcodes", "nCount_RNA", "Spring_1", "Spring_2", "AP_signature","BP_signature", "EN_signature", "LN_signature", "Lineage") %>%
                        filter(Lineage == "Pallial_neurons")
fit <- principal_curve(as.matrix(Trajectories.Pallial[,c("Spring_1", "Spring_2")]),
                       smoother='lowess',
                       trace=TRUE,
                       f = .7,
                       stretch=0)
## Starting curve---distance^2: 6447222830
## Iteration 1---distance^2: 10179991
## Iteration 2---distance^2: 10187204
#The principal curve smoothed
Pallial.pc.line <- as.data.frame(fit$s[order(fit$lambda),])

#Pseudotime score
Trajectories.Pallial$PseudotimeScore <- fit$lambda/max(fit$lambda)
if (cor(Trajectories.Pallial$PseudotimeScore, Neurons.data@assays$RNA@data['Hmga2', Trajectories.Pallial$Barcodes]) > 0) {
  Trajectories.Pallial$PseudotimeScore <- -(Trajectories.Pallial$PseudotimeScore - max(Trajectories.Pallial$PseudotimeScore))
}

Combine the two trajectories’ data

Trajectories.neurons <- rbind(Trajectories.Pallial, Trajectories.Hem)
cols <- brewer.pal(n =11, name = "Spectral")

ggplot(Trajectories.neurons, aes(Spring_1, Spring_2)) +
  geom_point(aes(color=PseudotimeScore), size=2, shape=16) + 
  scale_color_gradientn(colours=rev(cols), name='Speudotime score') +
  geom_line(data=Pallial.pc.line, color="#026c9a", size=0.77) +
  geom_line(data=Hem.pc.line, color="#cc391b", size=0.77)

Shift Pseudotime in both lineage

Since we observe the first 25% of both trajectories are occupied by few, likely progenitor cells, we shift this cell along the axis

Pseudotime.intervals <- Trajectories.neurons%>%
                          select(Lineage, PseudotimeScore) %>%
                          mutate(Pseudotime.bins = cut(Trajectories.neurons$PseudotimeScore, seq(0, max(Trajectories.neurons$PseudotimeScore) + 0.05, 0.05), dig.lab = 2, right = FALSE)) %>%
                          group_by(Lineage, Pseudotime.bins) %>%
                          summarise(n=n())

ggplot(Pseudotime.intervals, aes(x=Pseudotime.bins, y=n, fill=Lineage)) +
        geom_bar(stat = "identity", width = 0.90) +
        theme(axis.text.x = element_text(angle = 45, hjust=1))+
        scale_fill_manual(values= c("#cc391b", "#026c9a"))

score <- sapply(Trajectories.neurons$PseudotimeScore,
                FUN = function(x) if (x <= 0.2) {x= 0.2} else { x=x })

Trajectories.neurons$PseudotimeScore.shifted <- (score - min(score)) / (max(score) - min(score))
ggplot(Trajectories.neurons, aes(x= PseudotimeScore.shifted, y= nCount_RNA/10000)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a")) +
        geom_smooth(method="loess", n= 50, aes(color= Lineage)) +
        ylim(0,NA)

rm(list = ls()[!ls() %in% c("Trajectories.neurons")])

Load progenitors with cell cycle trajectory fitted

Progenitors.data <- readRDS("../ProgenitorsDiversity/Progenitors.RDS")
table(Progenitors.data$Cell_ident)
## 
## Dorso-Medial_pallium                  Hem       Medial_pallium 
##                 3451                 1954                 2719

To balance the number of progenitors in both domain we will only work with Hem and Medial_pallium annotated cells. Since we are using pallial cell to contrast CR specific trajectory we think this approximation will not significantly affect our analysis.

Progenitors.data <-  subset(Progenitors.data, subset = Cell_ident %in% c("Hem", "Medial_pallium") & orig.ident == "Hem1")
p1 <- DimPlot(Progenitors.data,
        reduction = "spring",
        pt.size = 0.5,
        cols =  c("#e3c148", "#e46b6b")) + NoAxes()

p2 <- FeaturePlot(object = Progenitors.data,
            features = "Revelio.cc",
            pt.size = 0.5,
            cols = rev(brewer.pal(10,"Spectral")),
            reduction = "spring",
            order = T) & NoAxes()

p3 <- DimPlot(object = Progenitors.data,
        group.by = "Revelio.phase",
        pt.size = 0.5,
        reduction = "spring",
        cols =  c(wes_palette("FantasticFox1")[1:3],"grey40",wes_palette("FantasticFox1")[5])) & NoAxes()

p1 + p2 + p3  + patchwork::plot_layout(ncol = 2)

Combined progenitors and neurons along Pseudotime

# Start with neurons data
Trajectories.all <- Trajectories.neurons %>% select(Barcodes, nCount_RNA, Spring_1, Spring_2, Lineage)

Trajectories.all$Pseudotime <- Trajectories.neurons$PseudotimeScore.shifted + 0.5
Trajectories.all$Phase <- NA
# Add progenitors data
Trajectories.progenitors <- Progenitors.data@meta.data %>%
                              select(Barcodes, nCount_RNA, Spring_1, Spring_2) %>% 
                              mutate(Lineage= ifelse(Progenitors.data$Cell_ident == "Medial_pallium", "Pallial_neurons", "Cajal-Retzius_neurons") ,
                                     Pseudotime= Progenitors.data$Revelio.cc/2,
                                     Phase = Progenitors.data$Revelio.phase)
Trajectories.WT<- rbind(Trajectories.all, Trajectories.progenitors)

Trajectories.WT$Phase <- factor(Trajectories.WT$Phase, levels = c("G1.S", "S", "G2", "G2.M", "M.G1"))
p1 <- ggplot(Trajectories.WT, aes(Spring_1, Spring_2)) +
        geom_point(aes(color=Pseudotime), size=0.5) + 
        scale_color_gradientn(colours=rev(brewer.pal(n =11, name = "Spectral")), name='Pseudotime score')

p2 <- ggplot(Trajectories.WT, aes(Spring_1, Spring_2)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a"))

p1 + p2

p1 <- ggplot(Trajectories.WT, aes(x= Pseudotime, y= nCount_RNA/10000)) +
        geom_point(aes(color= Phase), size=0.5) +
        scale_color_manual(values= c(wes_palette("FantasticFox1")[1:3],"grey40",wes_palette("FantasticFox1")[5])) +
        geom_smooth(method="loess", n= 50, fill="grey") +
        ylim(0,NA)

p2 <- ggplot(Trajectories.WT, aes(x= Pseudotime, y= nCount_RNA/10000)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a")) +
        geom_smooth(method="loess", n= 50, fill="grey") +
        ylim(0,NA)

p1 / p2

rm(list = ls()[!ls() %in% c("Trajectories.WT")])
gc()
##           used  (Mb) gc trigger   (Mb)   max used   (Mb)
## Ncells 3459504 184.8    6124515  327.1    6124515  327.1
## Vcells 6012773  45.9  798233484 6090.1 1064969495 8125.1

Pseudotime in the KO

WT.KO.integrated <- readRDS("WT_KO.integrated.RDS")

Extract CR and pallial neurons

Neurons.data <-  subset(WT.KO.integrated,
                        subset = Lineage %in% c("Cajal-Retzius_neurons", "Pallial_neurons") & orig.ident == "Gmnc_KO" & Cell.ident.KO %in% c("Neuron_prob.2", "Neuron_prob.3"))

DimPlot(Neurons.data,
        group.by = "Lineage",
        reduction = "integrated_spring",
        pt.size = 1,
        cols =  c("#cc391b","#026c9a")
        ) + NoAxes()

Fit principale curve on the two lineages

fit <- principal_curve(as.matrix(Neurons.data@meta.data[,c("Spring_1", "Spring_2")]),
                       smoother='lowess',
                       trace=TRUE,
                       f = 1,
                       stretch=0)
## Starting curve---distance^2: 76242448164
## Iteration 1---distance^2: 48308567
## Iteration 2---distance^2: 49237931
## Iteration 3---distance^2: 50119026
## Iteration 4---distance^2: 51105768
## Iteration 5---distance^2: 51819999
## Iteration 6---distance^2: 52369574
## Iteration 7---distance^2: 52732675
## Iteration 8---distance^2: 52936995
## Iteration 9---distance^2: 53060989
## Iteration 10---distance^2: 53117718
#Pseudotime score
PseudotimeScore <- fit$lambda/max(fit$lambda)

if (cor(PseudotimeScore, Neurons.data@assays$RNA@data['Hmga2', ]) > 0) {
  Neurons.data$PseudotimeScore <- -(PseudotimeScore - max(PseudotimeScore))
}

cols <- brewer.pal(n =11, name = "Spectral")

ggplot(Neurons.data@meta.data, aes(Spring_1, Spring_2)) +
  geom_point(aes(color=PseudotimeScore), size=2, shape=16) + 
  scale_color_gradientn(colours=rev(cols), name='Pseudotime score')

Shift pseudotime score

score <- sapply(Neurons.data$PseudotimeScore,
                FUN = function(x) if (x <= 0.25) {x= 0.25} else { x=x })

Neurons.data$PseudotimeScore.shifted <- (score - min(score)) / (max(score) - min(score))
ggplot(Neurons.data@meta.data, aes(x= PseudotimeScore.shifted, y= nCount_RNA/10000)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a")) +
        geom_smooth(method="loess", n= 50, aes(color= Lineage)) +
        ylim(0,NA)

Fit cell cycle trajectory on progenitors

To balance the number of progenitors in both domain we will only work with Hem and Medial_pallium annotated cells. Since we are using pallial cell to contrast CR specific trajectory we think this approximation will not significantly affect our analysis.

Progenitors.data <-  subset(WT.KO.integrated,
                            subset = Lineage %in% c("Cajal-Retzius_neurons", "Pallial_neurons") & orig.ident == "Gmnc_KO" & Cell.ident.KO %in% c("Hem", "Medial_pallium"))

DimPlot(Progenitors.data,
        reduction = "integrated_spring",
        group.by = "Cell.ident.KO",
        pt.size = 1,
        cols =  c("#cc391b","#026c9a")
        ) + NoAxes()

rm(WT.KO.integrated)
gc()
##             used   (Mb) gc trigger   (Mb)   max used    (Mb)
## Ncells   3507538  187.4    6124515  327.1    6124515   327.1
## Vcells 298001637 2273.6 1144872256 8734.7 1331671352 10159.9

Prepare data for Revelio

rawCounts <- as.matrix(Progenitors.data[["RNA"]]@counts)

# Filter genes expressed by less than 10 cells
num.cells <- Matrix::rowSums(rawCounts > 0)
genes.use <- names(x = num.cells[which(x = num.cells >= 10)])
rawCounts <- rawCounts[genes.use, ]

Run Revelio

CCgenes <- read.table("../ChoroidPlexus_trajectory/CCgenes.csv", sep = ";", header = T)

We can now follow the tutorial form the package github page

myData <- createRevelioObject(rawData = rawCounts,
                              cyclicGenes = CCgenes,
                              lowernGeneCutoff = 0,
                              uppernUMICutoff = Inf,
                              ccPhaseAssignBasedOnIndividualBatches = F)
## 2022-06-13 15:19:40: reading data: 5.59secs
rm("rawCounts")
gc()
##             used   (Mb) gc trigger   (Mb)   max used    (Mb)
## Ncells   3503173  187.1    6126737  327.3    6126737   327.3
## Vcells 357827865 2730.1 1144872590 8734.7 1331671700 10159.9

The getCellCyclePhaseAssignInformation filter “outlier” cells for cell cycle phase assignation. We modified the function to keep all cells as we observed this does not affect the global cell cycle fitting procedure

source("../Functions/functions_InitializationCCPhaseAssignFiltering.R")

myData <- getCellCyclePhaseAssign_allcells(myData)
## 2022-06-13 15:19:55: assigning cell cycle phases: 32.85secs
myData <- getPCAData(dataList = myData)
## 2022-06-13 15:20:45: calculating PCA: 25.35secs
myData <- getOptimalRotation(dataList = myData)
## 2022-06-13 15:21:10: calculating optimal rotation: 14.21secs

Graphical assesment of cell cycle fitting

CellCycledata <- cbind(as.data.frame(t(myData@transformedData$dc$data[1:2,])),
                       nUMI= myData@cellInfo$nUMI,
                       Revelio.phase = factor(myData@cellInfo$ccPhase, levels = c("G1.S", "S", "G2", "G2.M", "M.G1")),
                       Revelio.cc= myData@cellInfo$ccPercentageUniformlySpaced,
                       Domain= Progenitors.data$Cell.ident.KO)
p1 <- ggplot(CellCycledata, aes(DC1, DC2)) +
        geom_point(aes(color = Revelio.phase), size= 0.5) +
        scale_color_manual(values= c(wes_palette("FantasticFox1")[1:3],"grey40",wes_palette("FantasticFox1")[5]))

p2 <- ggplot(CellCycledata, aes(DC1, DC2)) +
        geom_point(aes(color = Domain), size = 0.5) +
        scale_color_manual(values= c("#cc391b","#026c9a"))

p3 <- ggplot(CellCycledata, aes(DC1, DC2)) +
        geom_point(aes(color=Revelio.cc), size=0.5, shape=16) + 
        scale_color_gradientn(colours=rev(colorRampPalette(brewer.pal(n =11, name = "Spectral"))(100)),
                              name='Revelio_cc')

p4 <- ggplot(CellCycledata, aes(x= Revelio.cc, y= nUMI/10000)) +
        geom_point(aes(color= Revelio.phase), size=0.5) +
        scale_color_manual(values= c(wes_palette("FantasticFox1")[1:3],"grey40",wes_palette("FantasticFox1")[5])) +
        geom_smooth(method="loess", n= 50, fill="grey") +
        ylim(0,NA)

(p1 + p2) /(p3 + p4)

Progenitors.data$Revelio.phase <- CellCycledata$Revelio.phase
Progenitors.data$Revelio.cc <- CellCycledata$Revelio.cc

p1 <- FeaturePlot(object = Progenitors.data,
                  features = "Revelio.cc",
                  pt.size = 1,
                  cols = rev(brewer.pal(10,"Spectral")),
                  reduction = "integrated_spring",
                  order = T) & NoAxes()

p2 <- DimPlot(object = Progenitors.data,
              group.by = "Revelio.phase",
              pt.size = 1,
              reduction = "integrated_spring",
              cols =  c(wes_palette("FantasticFox1")[1:3],"grey40",wes_palette("FantasticFox1")[5])) & NoAxes()

p1 / p2

Transfert learn cell cycle axis

Progenitors <- Progenitors.data@meta.data %>% select(Barcodes, nCount_RNA, Spring_1, Spring_2, Lineage)

Progenitors$PseudotimeScore <- CellCycledata$Revelio.cc
Progenitors$nUMI <- Progenitors.data$nCount_RNA

Combine Progenitors and differentiating neurons data

# Start with neurons data
Trajectories.all <- Neurons.data@meta.data %>% select(Barcodes, nCount_RNA, Spring_1, Spring_2, Lineage)

Trajectories.all$Pseudotime <- Neurons.data$PseudotimeScore.shifted + 0.5
Trajectories.all$Phase <- NA
# Add progenitors data
Trajectories.progenitors <- Progenitors %>%
                              select(Barcodes, nCount_RNA, Spring_1, Spring_2, Lineage) %>% 
                              mutate(Pseudotime= Progenitors.data$Revelio.cc/2,
                                     Phase = Progenitors.data$Revelio.phase)
Trajectories.KO <- rbind(Trajectories.all, Trajectories.progenitors)

Trajectories.KO$Phase <- factor(Trajectories.KO$Phase, levels = c("G1.S", "S", "G2", "G2.M", "M.G1"))
p1 <- ggplot(Trajectories.KO, aes(Spring_1, Spring_2)) +
        geom_point(aes(color=Pseudotime), size=0.5) + 
        scale_color_gradientn(colours=rev(brewer.pal(n =11, name = "Spectral")), name='Pseudotime score')

p2 <- ggplot(Trajectories.KO, aes(Spring_1, Spring_2)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a"))

p1 + p2

p1 <- ggplot(Trajectories.KO, aes(x= Pseudotime, y= nCount_RNA/10000)) +
        geom_point(aes(color= Phase), size=0.5) +
        scale_color_manual(values= c(wes_palette("FantasticFox1")[1:3],"grey40",wes_palette("FantasticFox1")[5])) +
        geom_smooth(method="loess", n= 50, fill="grey") +
        ylim(0,NA)

p2 <- ggplot(Trajectories.KO, aes(x= Pseudotime, y= nCount_RNA/10000)) +
        geom_point(aes(color= Lineage), size=0.5) +
        scale_color_manual(values= c("#cc391b", "#026c9a")) +
        geom_smooth(aes(color= Lineage), method="loess", n= 50, fill="grey") +
        ylim(0,NA)

p1 / p2

Trajectories <- rbind(Trajectories.KO, Trajectories.WT)

rm(list = ls()[!ls() %in% c("Trajectories")])

Subset the full integrated dataset

WT.KO.integrated <- readRDS("WT_KO.integrated.RDS")

meta.data <- WT.KO.integrated@meta.data[Trajectories$Barcodes,]
meta.data$Pseudotime <- Trajectories$Pseudotime
meta.data$Phase <- Trajectories$Phase
WT.KO.integrated <- CreateSeuratObject(counts = WT.KO.integrated@assays$RNA@counts[, Trajectories$Barcodes],
                                       meta.data = meta.data)

spring <- as.matrix(WT.KO.integrated@meta.data %>% select("Integrated_Spring_1", "Integrated_Spring_2"))
  
WT.KO.integrated[["integrated_spring"]] <- CreateDimReducObject(embeddings = spring, key = "Spring_", assay = DefaultAssay(WT.KO.integrated))
p1 <- FeaturePlot(object = WT.KO.integrated,
            features = "Pseudotime",
            pt.size = 0.5,
            cols = rev(colorRampPalette(brewer.pal(n =11, name = "Spectral"))(100)),
            reduction = "integrated_spring",
            order = T) & NoAxes()

p2 <- DimPlot(object = WT.KO.integrated,
        group.by = "Lineage",
        pt.size = 0.5,
        reduction = "integrated_spring",
        cols =  c("#cc391b", "#026c9a")) & NoAxes()


p3 <- DimPlot(object = WT.KO.integrated,
        group.by = "Phase",
        pt.size = 0.5,
        reduction = "integrated_spring",
        cols =  c(wes_palette("FantasticFox1")[1:3],"grey40",wes_palette("FantasticFox1")[5])) & NoAxes()

p1 + p2 + p3

ggsave("~/Bureau/Fig4_MM/Spring_WT_KO_Pseudotime.pdf",
       device = "pdf",
       dpi = "retina")

Normalization

WT.KO.integrated <- NormalizeData(WT.KO.integrated, normalization.method = "LogNormalize", scale.factor = 10000, assay = "RNA")
WT.KO.integrated <- FindVariableFeatures(WT.KO.integrated, selection.method = "disp", nfeatures = 6500, assay = "RNA")

Plot some genes along pseudotime

source("../Functions/functions_GeneTrends.R")

Plot.Genes.trend(Seurat.data= WT.KO.integrated,
                 group.by = "Genotype",
                 genes= c("Gas1","Sox2",
                          "Neurog2", "Btg2",
                          "Tbr1", "Mapt",
                          "Trp73", "Foxg1"))

ggsave("~/Bureau/Fig4_MM/Neuro-Genes_trend_WT-KO.pdf",
       width = 15, height = 9,
       device = "pdf",
       dpi = "retina")
Plot.Genes.trend(Seurat.data= WT.KO.integrated,
                 group.by = "Genotype",
                 genes= c("Gmnc", "Mcidas",
                          "Ccno", "Ccdc67",
                          "Foxj1", "Trp73",
                          "Lhx1", "Cdkn1a"))

ggsave("~/Bureau/Fig4_MM/Gmnc-Genes_trend_WT-KO.pdf",
       width = 15, height = 9,
       device = "pdf",
       dpi = "retina")
CR <- WT.KO.integrated@meta.data %>% filter(Lineage == "Cajal-Retzius_neurons") %>% select(Barcodes,Pseudotime,orig.ident)

CR.genes <- as.data.frame(t(WT.KO.integrated@assays$RNA@data[c("Cacna2d2","Reln", "Nhlh2", "Ebf3"),CR$Barcodes]))
CR.genes$Pseudotime <- CR$Pseudotime
CR.genes$Genotype <- factor(CR$orig.ident, levels = c("Hem1", "Gmnc_KO") ) 

CR.genes  <- reshape2::melt(CR.genes, id = c("Pseudotime", "Genotype"))


ggplot(CR.genes, aes(x= Pseudotime, y= value)) +
  geom_smooth(method="loess", n= 50, aes(color= variable, linetype= Genotype)) +
  scale_color_manual(values= c(wes_palette("FantasticFox1")[1:3],wes_palette("FantasticFox1")[5])) +
  ylim(0,NA)

ggsave("~/Bureau/Fig4_MM/CR-Genes_trend_WT-KO.pdf",
       width = 5, height = 2,
       device = "pdf",
       dpi = "retina")

Use monocle2 to model gene expression along cycling axis

rm(list = ls()[!ls() %in% c("WT.KO.integrated")])
gc()
##             used  (Mb) gc trigger   (Mb)   max used    (Mb)
## Ncells   3530260 188.6    6124515  327.1    6124515   327.1
## Vcells 106889623 815.6  879313093 6708.7 1331671352 10159.9

Initialize a monocle object

# Transfer metadata
Annot.data  <- new('AnnotatedDataFrame',
                   data = data.frame(Barcode= WT.KO.integrated$Barcodes,
                                     Lineage= WT.KO.integrated$Lineage,
                                     Pseudotime= WT.KO.integrated$Pseudotime,
                                     Phase= WT.KO.integrated$Phase,
                                     Genotype= WT.KO.integrated$orig.ident))

# Transfer counts data
var.genes <- WT.KO.integrated[["RNA"]]@var.features

feature.data <- new('AnnotatedDataFrame',
                    data = data.frame(gene_short_name = rownames(WT.KO.integrated[["RNA"]]@counts[var.genes,]),
                                      row.names = rownames(WT.KO.integrated[["RNA"]]@counts[var.genes,])))

# Create the CellDataSet object including variable genes only
gbm_cds <- newCellDataSet(WT.KO.integrated[["RNA"]]@counts[var.genes,],
                              phenoData = Annot.data,
                              featureData = feature.data,
                              lowerDetectionLimit = 0,
                              expressionFamily = negbinomial())
gbm_cds <- estimateSizeFactors(gbm_cds)
gbm_cds <- estimateDispersions(gbm_cds)
gbm_cds <- detectGenes(gbm_cds, min_expr = 0.1)
rm(list = ls()[!ls() %in% c("WT.KO.integrated", "gbm_cds")])
gc()
##             used  (Mb) gc trigger   (Mb)   max used    (Mb)
## Ncells   3604149 192.5    6124515  327.1    6124515   327.1
## Vcells 129853465 990.8  703450475 5367.0 1331671352 10159.9

Plot WT CR dynamic genes along WT and KO trajectories

All CR enriched genes identified in the WT dataset

# Load WT CR variable genes along pseudotime
WT.CR.genes <- read.table("../CajalRetzius_trajectory/CR_dynamic_genes.csv", sep = ";", header = T)

# Extract CR lineage in both genotypes
CR.pData <- pData(gbm_cds) %>% subset(Lineage == "Cajal-Retzius_neurons")

# Create a new pseudotime vector of 300 points
nPoints <- 300

new_data = list()
for (Genotype in unique(CR.pData$Genotype)){
  new_data[[length(new_data) + 1]] = data.frame(Pseudotime = seq(min(CR.pData$Pseudotime), max(CR.pData$Pseudotime), length.out = nPoints), Genotype= Genotype)
}

new_data = do.call(rbind, new_data)

# Smooth gene expression
Diff.curve_matrix <- genSmoothCurves(gbm_cds[WT.CR.genes$Gene, CR.pData$Barcode],
                                      trend_formula = "~sm.ns(Pseudotime, df = 3)*Genotype",
                                      relative_expr = TRUE,
                                      new_data = new_data,
                                      cores= parallel::detectCores() - 2)
Pseudotime.genes.clusters <- cluster::pam(as.dist((1 - cor(Matrix::t(Diff.curve_matrix[,301:600]),method = "pearson"))), k= 5)

CR.Gene.dynamique <- data.frame(Gene= names(Pseudotime.genes.clusters$clustering),
                                Waves= Pseudotime.genes.clusters$clustering,
                                Gene.Clusters = Pseudotime.genes.clusters$clustering) %>% arrange(Gene.Clusters)

row.names(CR.Gene.dynamique) <- CR.Gene.dynamique$Gene
CR.Gene.dynamique$Gene.Clusters <- paste0("Clust.", CR.Gene.dynamique$Gene.Clusters)
# Order the rows using seriation
dst <- as.dist((1-cor(scale(t(Diff.curve_matrix[,301:600])), method = "pearson")))
row.ser <- seriation::seriate(dst, method ="R2E") #"R2E" #TSP #"GW" "GW_ward"
gene.order <- rownames(Diff.curve_matrix[,301:600][get_order(row.ser),])

# Set annotation colors
pal <- wes_palette("Darjeeling1")
anno.colors <- list(lineage = c(Gmnc_KO="#026c9a", Gmnc_WT="#cc391b"),
                    Gene.Clusters = c(Clust.1 =pal[1] , Clust.2=pal[2], Clust.3=pal[3], Clust.4=pal[4], Clust.5=pal[5]))


pheatmap::pheatmap(Diff.curve_matrix[gene.order,
                                c(300:1,#KO 
                                  301:600)], #WT
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   annotation_row = CR.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                   annotation_col = data.frame(lineage = rep(c("Gmnc_KO","Gmnc_WT"), each=300)),
                   annotation_colors = anno.colors,
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   border_color = NA,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "")

gene.order <- gene.order[c(382:622,1:381)]

heatmap.gene <- pheatmap::pheatmap(Diff.curve_matrix[gene.order,
                                    c(300:1,#Pal 
                                      301:600)], #CR
                       scale = "row",
                       cluster_rows = F,
                       cluster_cols = F,
                       annotation_row = CR.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                       annotation_col = data.frame(lineage = rep(c("Gmnc_KO","Gmnc_WT"), each=300)),
                       annotation_colors = anno.colors,
                       show_colnames = F,
                       gaps_col = c(200,400),
                       show_rownames = F,
                       fontsize_row = 8,
                       border_color = NA,
                       color =  viridis::viridis(9),
                       breaks = seq(-2.5,2.5, length.out = 9),
                       main = "WT CR enriched genes along GmncKO and GmncWT CR trajectories")

pdf("~/Bureau/Fig4_MM/heatmap_Fig2Genes_WT-KO.pdf", width=5, height=5)
grid::grid.newpage()
grid::grid.draw(heatmap.gene$gtable)
dev.off()
## png 
##   2
anno.colors <- list(Cell.state = c(Cycling_RG="#046c9a", Differentiating_cells="#ebcb2e"),
                    Gene.Clusters = c(Clust.1 =pal[1] , Clust.2=pal[2], Clust.3=pal[3], Clust.4=pal[4], Clust.5=pal[5]))

col.anno <- data.frame(Cell.state = rep(c("Cycling_RG","Differentiating_cells"), c(100,200)))
rownames(col.anno) <- 301:600

pheatmap::pheatmap(Diff.curve_matrix[gene.order,
                                c(301:600)], #CR
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   annotation_row = CR.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                   annotation_col = col.anno,
                   annotation_colors = anno.colors,
                   gaps_col = 100,
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   border_color = NA,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "WT CR enriched genes along GmncKO and GmncWT CR trajectories")

anno.colors <- list(Cell.state = c(Cycling_RG="#046c9a", Differentiating_cells="#ebcb2e"),
                    Gene.Clusters = c(Clust.1 =pal[1] , Clust.2=pal[2], Clust.3=pal[3], Clust.4=pal[4], Clust.5=pal[5]))

pheatmap::pheatmap(Diff.curve_matrix[gene.order,
                                c(1:300)], #CR
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   annotation_row = CR.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                   annotation_col = data.frame(Cell.state = rep(c("Cycling_RG","Differentiating_cells"), c(100,200))),
                   annotation_colors = anno.colors,
                   show_colnames = F,
                   show_rownames = F,
                   gaps_col = 100,
                   fontsize_row = 8,
                   border_color = NA,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "WT CR enriched genes along GmncKO CR trajectories")

CR <- WT.KO.integrated@meta.data %>% filter(Lineage == "Cajal-Retzius_neurons") %>% select(Barcodes,Pseudotime,orig.ident)

CR.genes <- as.data.frame(t(WT.KO.integrated@assays$RNA@data[c("Gmnc","Trp73", "Lhx1", "Barhl2"),CR$Barcodes]))
CR.genes$Pseudotime <- CR$Pseudotime
CR.genes$Genotype <- factor(CR$orig.ident, levels = c("Hem1", "Gmnc_KO") ) 

CR.genes  <- reshape2::melt(CR.genes, id = c("Pseudotime", "Genotype"))


ggplot(CR.genes, aes(x= Pseudotime, y= value)) +
  geom_smooth(method="loess", n= 50, aes(color= variable, linetype= Genotype)) +
  scale_color_manual(values= c(wes_palette("FantasticFox1")[1:3],wes_palette("FantasticFox1")[5])) +
  ylim(0,NA)

ggsave("~/Bureau/Fig4_MM/Medial-CR_Genes-trend_WT-KO.pdf",
       width = 5, height = 2,
       device = "pdf",
       dpi = "retina")

TF only

# Set annotation colors
pal <- wes_palette("Darjeeling1")
anno.colors <- list(lineage = c(Gmnc_KO="#026c9a", Gmnc_WT="#cc391b"),
                    Gene.Clusters = c(Clust.1 =pal[1] , Clust.2=pal[2], Clust.3=pal[3], Clust.4=pal[4], Clust.5=pal[5]))

TFs <- read.table("TF.csv", sep = ";")[,1]

gene.order <- gene.order[gene.order %in% TFs]

heatmap.gene <- pheatmap::pheatmap(Diff.curve_matrix[gene.order,
                                c(300:1,#KO 
                                  301:600)], #WT
                       scale = "row",
                       cluster_rows = F,
                       cluster_cols = F,
                       annotation_row = CR.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                       annotation_col = data.frame(lineage = rep(c("Gmnc_KO","Gmnc_WT"), each=300)),
                       annotation_colors = anno.colors,
                       show_colnames = F,
                       show_rownames = T,
                       fontsize_row = 8,
                       border_color = NA,
                       color =  viridis::viridis(9),
                       breaks = seq(-2.5,2.5, length.out = 9),
                       main = "WT CR dynamic TFs along GmncWT and KO trajectories")

DEG genes in the KO

Find DEG in the KO

KO.pData <- pData(gbm_cds) %>% subset(Genotype == "Gmnc_KO")

pseudo.maturation.diff <- differentialGeneTest(gbm_cds[fData(gbm_cds)$num_cells_expressed > 80, KO.pData$Barcode], 
                                                 fullModelFormulaStr = "~sm.ns(Pseudotime, df = 3)*Lineage", 
                                                 reducedModelFormulaStr = "~sm.ns(Pseudotime, df = 3)", 
                                                 cores = parallel::detectCores() - 2)

# Filter genes based on FDR
pseudo.maturation.diff.filtered <- pseudo.maturation.diff %>% filter(qval < 1e-40)
# Create a new pseudo-DV vector of 300 points
nPoints <- 300

new_data = list()
for (Lineage in unique(KO.pData$Lineage)){
  new_data[[length(new_data) + 1]] = data.frame(Pseudotime = seq(min(KO.pData$Pseudotime), max(KO.pData$Pseudotime), length.out = nPoints), Lineage=Lineage)
}

new_data = do.call(rbind, new_data)

# Smooth gene expression
Diff.curve_matrix <- genSmoothCurves(gbm_cds[as.character(pseudo.maturation.diff.filtered$gene_short_name), KO.pData$Barcode],
                                      trend_formula = "~sm.ns(Pseudotime, df = 3)*Lineage",
                                      relative_expr = TRUE,
                                      new_data = new_data,
                                      cores= parallel::detectCores() - 2)

Compute the ABC for each gene

# Extract matrix containing smoothed curves for each lineages
Pal_curve_matrix <- Diff.curve_matrix[, 1:nPoints] #Pallial points
CR_curve_matrix <- Diff.curve_matrix[, (nPoints + 1):(2 * nPoints)] #CR points

# Direction of the comparison : postive ABCs <=> Upregulated in CR lineage
ABCs_res <- CR_curve_matrix - Pal_curve_matrix

# Average logFC between the 2 curves
ILR_res <- log2(CR_curve_matrix/ (Pal_curve_matrix + 0.1)) 
  
ABCs_res <- apply(ABCs_res, 1, function(x, nPoints) {
                  avg_delta_x <- (x[1:(nPoints - 1)] + x[2:(nPoints)])/2
                  step <- (100/(nPoints - 1))
                  res <- round(sum(avg_delta_x * step), 3)
                  return(res)},
                  nPoints = nPoints) # Compute the area below the curve
  
ABCs_res <- cbind(ABCs_res, ILR_res[,ncol(ILR_res)])
colnames(ABCs_res)<- c("ABCs", "Endpoint_ILR")

# Import ABC values into the DE test results table
pseudo.maturation.diff.filtered <- cbind(pseudo.maturation.diff.filtered[,1:4],
                                         ABCs_res,
                                         pseudo.maturation.diff.filtered[,5:6])

KO Cajal-Retzius cells specific trajectory analysis

# Extract Cajal-Retzius expressed genes
CR.res <- as.data.frame(pseudo.maturation.diff.filtered[pseudo.maturation.diff.filtered$ABCs > 0,])
CR.genes <- row.names(CR.res)

CR_curve_matrix <- CR_curve_matrix[CR.genes, ]
Pseudotime.genes.clusters <- cluster::pam(as.dist((1 - cor(Matrix::t(CR_curve_matrix),method = "pearson"))), k= 5)

CR.Gene.dynamique <- data.frame(Gene= names(Pseudotime.genes.clusters$clustering),
                                 Waves= Pseudotime.genes.clusters$clustering,
                                 Gene.Clusters = Pseudotime.genes.clusters$clustering,
                                 q.val = CR.res$qval,
                                 ABCs= CR.res$ABCs
                                 ) %>% arrange(Gene.Clusters)

row.names(CR.Gene.dynamique) <- CR.Gene.dynamique$Gene
CR.Gene.dynamique$Gene.Clusters <- paste0("Clust.", CR.Gene.dynamique$Gene.Clusters)

write.table(CR.Gene.dynamique, "KO_CR_dynamic_genes.csv", sep = ";", quote = F, row.names = F)
# Order the rows using seriation
dst <- as.dist((1-cor(scale(t(CR_curve_matrix)), method = "pearson")))
row.ser <- seriation::seriate(dst, method ="R2E") #"R2E" #TSP #"GW" "GW_ward"
gene.order <- rownames(CR_curve_matrix[get_order(row.ser),])

# Set annotation colors
pal <- wes_palette("Darjeeling1")
anno.colors <- list(lineage = c(KO_Pallial_neurons="#026c9a", KO_Cajal_Retzius="#cc391b"),
                    Gene.Clusters = c(Clust.1 =pal[1] , Clust.2=pal[2], Clust.3=pal[3], Clust.4=pal[4], Clust.5=pal[5]))


pheatmap::pheatmap(Diff.curve_matrix[gene.order,
                                c(300:1,#Pal 
                                  301:600)], #CR
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   annotation_row = CR.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                   annotation_col = data.frame(lineage = rep(c("KO_Pallial_neurons","KO_Cajal_Retzius"), each=300)),
                   annotation_colors = anno.colors,
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "")

pheatmap::pheatmap(Diff.curve_matrix[gene.order[c(235:1,292:236)],
                                c(300:1,#Pal 
                                  301:600)], #CR
                   scale = "row",
                   cluster_rows = F,
                   cluster_cols = F,
                   annotation_row = CR.Gene.dynamique %>% dplyr::select(Gene.Clusters),
                   annotation_col = data.frame(lineage = rep(c("KO_Pallial_neurons","KO_Cajal_Retzius"), each=300)),
                   annotation_colors = anno.colors,
                   show_colnames = F,
                   show_rownames = F,
                   fontsize_row = 8,
                   color =  viridis::viridis(9),
                   breaks = seq(-2.5,2.5, length.out = 9),
                   main = "")

Session Info

#date
format(Sys.time(), "%d %B, %Y, %H,%M")
## [1] "15 juin, 2022, 15,42"
#Packages used
sessionInfo()
## R version 4.2.0 (2022-04-22)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 20.04.4 LTS
## 
## Matrix products: default
## BLAS:   /usr/lib/x86_64-linux-gnu/blas/libblas.so.3.9.0
## LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.9.0
## 
## locale:
##  [1] LC_CTYPE=fr_FR.UTF-8       LC_NUMERIC=C              
##  [3] LC_TIME=fr_FR.UTF-8        LC_COLLATE=fr_FR.UTF-8    
##  [5] LC_MONETARY=fr_FR.UTF-8    LC_MESSAGES=fr_FR.UTF-8   
##  [7] LC_PAPER=fr_FR.UTF-8       LC_NAME=C                 
##  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
## [11] LC_MEASUREMENT=fr_FR.UTF-8 LC_IDENTIFICATION=C       
## 
## attached base packages:
## [1] splines   stats4    stats     graphics  grDevices utils     datasets 
## [8] methods   base     
## 
## other attached packages:
##  [1] wesanderson_0.3.6   cowplot_1.1.1       ggExtra_0.9        
##  [4] RColorBrewer_1.1-2  dplyr_1.0.7         seriation_1.3.1    
##  [7] gprofiler2_0.2.1    monocle_2.22.0      DDRTree_0.1.5      
## [10] irlba_2.3.3         VGAM_1.1-5          ggplot2_3.3.5      
## [13] Biobase_2.54.0      BiocGenerics_0.40.0 Matrix_1.4-1       
## [16] Revelio_0.1.0       princurve_2.1.6     SeuratObject_4.0.4 
## [19] Seurat_4.0.5       
## 
## loaded via a namespace (and not attached):
##   [1] plyr_1.8.6            igraph_1.2.11         lazyeval_0.2.2       
##   [4] densityClust_0.3      listenv_0.8.0         scattermore_0.7      
##   [7] fastICA_1.2-3         digest_0.6.29         foreach_1.5.1        
##  [10] htmltools_0.5.2       viridis_0.6.2         fansi_0.5.0          
##  [13] magrittr_2.0.2        tensor_1.5            cluster_2.1.3        
##  [16] ROCR_1.0-11           limma_3.50.0          globals_0.14.0       
##  [19] matrixStats_0.61.0    docopt_0.7.1          spatstat.sparse_2.0-0
##  [22] colorspace_2.0-2      ggrepel_0.9.1         xfun_0.28            
##  [25] sparsesvd_0.2         crayon_1.4.2          jsonlite_1.7.2       
##  [28] spatstat.data_2.1-0   survival_3.2-13       zoo_1.8-9            
##  [31] iterators_1.0.13      glue_1.5.1            polyclip_1.10-0      
##  [34] registry_0.5-1        gtable_0.3.0          leiden_0.3.9         
##  [37] future.apply_1.8.1    abind_1.4-5           scales_1.1.1         
##  [40] pheatmap_1.0.12       DBI_1.1.1             miniUI_0.1.1.1       
##  [43] Rcpp_1.0.8            viridisLite_0.4.0     xtable_1.8-4         
##  [46] reticulate_1.22       spatstat.core_2.3-1   htmlwidgets_1.5.4    
##  [49] httr_1.4.2            FNN_1.1.3             ellipsis_0.3.2       
##  [52] ica_1.0-2             farver_2.1.0          pkgconfig_2.0.3      
##  [55] sass_0.4.0            uwot_0.1.10           deldir_1.0-6         
##  [58] utf8_1.2.2            labeling_0.4.2        tidyselect_1.1.1     
##  [61] rlang_0.4.12          reshape2_1.4.4        later_1.3.0          
##  [64] munsell_0.5.0         tools_4.2.0           generics_0.1.1       
##  [67] ggridges_0.5.3        evaluate_0.14         stringr_1.4.0        
##  [70] fastmap_1.1.0         yaml_2.2.1            goftest_1.2-3        
##  [73] knitr_1.36            fitdistrplus_1.1-6    purrr_0.3.4          
##  [76] RANN_2.6.1            pbapply_1.5-0         future_1.23.0        
##  [79] nlme_3.1-153          mime_0.12             slam_0.1-49          
##  [82] compiler_4.2.0        plotly_4.10.0         png_0.1-7            
##  [85] spatstat.utils_2.2-0  tibble_3.1.6          bslib_0.3.1          
##  [88] stringi_1.7.6         highr_0.9             lattice_0.20-45      
##  [91] HSMMSingleCell_1.14.0 vctrs_0.3.8           pillar_1.6.4         
##  [94] lifecycle_1.0.1       spatstat.geom_2.3-0   combinat_0.0-8       
##  [97] lmtest_0.9-39         jquerylib_0.1.4       RcppAnnoy_0.0.19     
## [100] data.table_1.14.2     httpuv_1.6.3          patchwork_1.1.1      
## [103] R6_2.5.1              promises_1.2.0.1      TSP_1.1-11           
## [106] KernSmooth_2.23-20    gridExtra_2.3         parallelly_1.29.0    
## [109] codetools_0.2-18      MASS_7.3-57           assertthat_0.2.1     
## [112] withr_2.4.3           qlcMatrix_0.9.7       sctransform_0.3.2    
## [115] mgcv_1.8-40           parallel_4.2.0        grid_4.2.0           
## [118] rpart_4.1.16          tidyr_1.1.4           rmarkdown_2.11       
## [121] Rtsne_0.15            shiny_1.7.1

  1. Institute of Psychiatry and Neuroscience of Paris, INSERM U1266, 75014, Paris, France, ↩︎

LS0tCnRpdGxlOiAiQ29tcGFyaXNvbiBiZXR3ZWVuIHRyYWplY3RvcmllcyBpbiB0aGUgR21uYyBXVC9LTyIKYXV0aG9yOgogICAtIE1hdHRoaWV1IE1vcmVhdV5bSW5zdGl0dXRlIG9mIFBzeWNoaWF0cnkgYW5kIE5ldXJvc2NpZW5jZSBvZiBQYXJpcywgSU5TRVJNIFUxMjY2LCA3NTAxNCwgUGFyaXMsIEZyYW5jZSwgbWF0dGhpZXUubW9yZWF1QGluc2VybS5mcl0gWyFbXShodHRwczovL29yY2lkLm9yZy9zaXRlcy9kZWZhdWx0L2ZpbGVzL2ltYWdlcy9vcmNpZF8xNngxNi5wbmcpXShodHRwczovL29yY2lkLm9yZy8wMDAwLTAwMDItMjU5Mi0yMzczKQpkYXRlOiAiYHIgZm9ybWF0KFN5cy50aW1lKCksICclZCAlQiwgJVknKWAiCm91dHB1dDogCiAgaHRtbF9kb2N1bWVudDogCiAgICBjb2RlX2Rvd25sb2FkOiB5ZXMKICAgIGRmX3ByaW50OiB0aWJibGUKICAgIGhpZ2hsaWdodDogaGFkZG9jawogICAgdGhlbWU6IGNvc21vCiAgICBjc3M6ICIuLi9zdHlsZS5jc3MiCiAgICB0b2M6IHllcwogICAgdG9jX2RlcHRoOiA1CiAgICB0b2NfZmxvYXQ6CiAgICAgIGNvbGxhcHNlZDogeWVzCi0tLQoKYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9CmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSwgZmlnLmFsaWduID0gJ2NlbnRlcicsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0UsIGNhY2hlLmxhenkgPSBGQUxTRSkKCiMgVG8gdXNlIGJpb21hcnQgCm5ld19jb25maWcgPC0gaHR0cjo6Y29uZmlnKHNzbF92ZXJpZnlwZWVyID0gRkFMU0UpCmh0dHI6OnNldF9jb25maWcobmV3X2NvbmZpZywgb3ZlcnJpZGUgPSBGQUxTRSkKYGBgCgojIExvYWQgbGlicmFyaWVzCgpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQpsaWJyYXJ5KFNldXJhdCkKbGlicmFyeShwcmluY3VydmUpCmxpYnJhcnkoUmV2ZWxpbykKbGlicmFyeShtb25vY2xlKQpsaWJyYXJ5KGdwcm9maWxlcjIpCmxpYnJhcnkoc2VyaWF0aW9uKQpsaWJyYXJ5KE1hdHJpeCkKbGlicmFyeShkcGx5cikKbGlicmFyeShSQ29sb3JCcmV3ZXIpCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShnZ0V4dHJhKQpsaWJyYXJ5KGNvd3Bsb3QpCmxpYnJhcnkod2VzYW5kZXJzb24pCgojU2V0IGdncGxvdCB0aGVtZSBhcyBjbGFzc2ljCnRoZW1lX3NldCh0aGVtZV9jbGFzc2ljKCkpCmBgYAoKIyBMb2FkIGludGVncmF0ZWQgZGF0YXNldHMKCmBgYHtyfQpXVC5LTy5pbnRlZ3JhdGVkIDwtIHJlYWRSRFMoIldUX0tPLmludGVncmF0ZWQuUkRTIikKYGBgCgoKYGBge3J9CkRpbVBsb3QoV1QuS08uaW50ZWdyYXRlZCwKICAgICAgICByZWR1Y3Rpb24gPSAiaW50ZWdyYXRlZF9zcHJpbmciLAogICAgICAgIGdyb3VwLmJ5ID0gIkxpbmVhZ2UiLAogICAgICAgIHB0LnNpemUgPSAxLAogICAgICAgIGNvbHMgPSAgIGMoIiNjYzM5MWIiLCIjZTc4MjNhIiwiIzk2OTY5NiIsIiMwMjZjOWEiKQogICAgICAgICkgKyBOb0F4ZXMoKQpgYGAKCiMgUHNldWRvdGltZSBpbiB0aGUgV1QKCiMjIEV4dHJhY3QgQ1IgYW5kIENQIG5ldXJvbnMgCgpgYGB7cn0KTmV1cm9ucy5kYXRhIDwtICBzdWJzZXQoV1QuS08uaW50ZWdyYXRlZCwKICAgICAgICAgICAgICAgICAgICAgICAgc3Vic2V0ID0gTGluZWFnZSAlaW4lIGMoIkNhamFsLVJldHppdXNfbmV1cm9ucyIsICJQYWxsaWFsX25ldXJvbnMiKSAmIG9yaWcuaWRlbnQgPT0gIkhlbTEiICYgQ2VsbC5pZGVudC5XVCAlaW4lIGMoIkNhamFsLVJldHppdXNfbmV1cm9ucyIsICJQYWxsaWFsX25ldXJvbnMiKSkKCkRpbVBsb3QoTmV1cm9ucy5kYXRhLAogICAgICAgIGdyb3VwLmJ5ID0gIkxpbmVhZ2UiLAogICAgICAgIHJlZHVjdGlvbiA9ICJpbnRlZ3JhdGVkX3NwcmluZyIsCiAgICAgICAgcHQuc2l6ZSA9IDEsCiAgICAgICAgY29scyA9ICBjKCIjY2MzOTFiIiwiIzAyNmM5YSIpCiAgICAgICAgKSArIE5vQXhlcygpCgpybShXVC5LTy5pbnRlZ3JhdGVkKQpnYygpCmBgYAoKIyMgRml0IHByaW5jaXBhbGUgY3VydmUgb24gdGhlIHR3byBsaW5lYWdlcwoKIyMjIENhamFsLVJldHppdXMgY2VsbHMKCmBgYHtyfQpUcmFqZWN0b3JpZXMuSGVtIDwtIE5ldXJvbnMuZGF0YUBtZXRhLmRhdGEgJT4lCiAgICAgICAgICAgICAgICAgICAgc2VsZWN0KCJCYXJjb2RlcyIsICJuQ291bnRfUk5BIiwgIlNwcmluZ18xIiwgIlNwcmluZ18yIiwgIkFQX3NpZ25hdHVyZSIsIkJQX3NpZ25hdHVyZSIsICJFTl9zaWduYXR1cmUiLCAiTE5fc2lnbmF0dXJlIiwgIkxpbmVhZ2UiKSAlPiUKICAgICAgICAgICAgICAgICAgICBmaWx0ZXIoTGluZWFnZSA9PSAiQ2FqYWwtUmV0eml1c19uZXVyb25zIikKYGBgCgpgYGB7cn0KZml0IDwtIHByaW5jaXBhbF9jdXJ2ZShhcy5tYXRyaXgoVHJhamVjdG9yaWVzLkhlbVssYygiU3ByaW5nXzEiLCAiU3ByaW5nXzIiKV0pLAogICAgICAgICAgICAgICAgICAgICAgIHNtb290aGVyPSdsb3dlc3MnLAogICAgICAgICAgICAgICAgICAgICAgIHRyYWNlPVRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgZiA9IC43LAogICAgICAgICAgICAgICAgICAgICAgIHN0cmV0Y2g9MCkKCiNUaGUgcHJpbmNpcGFsIGN1cnZlIHNtb290aGVkCkhlbS5wYy5saW5lIDwtIGFzLmRhdGEuZnJhbWUoZml0JHNbb3JkZXIoZml0JGxhbWJkYSksXSkgCgojUHNldWRvdGltZSBzY29yZQpUcmFqZWN0b3JpZXMuSGVtJFBzZXVkb3RpbWVTY29yZSA8LSBmaXQkbGFtYmRhL21heChmaXQkbGFtYmRhKQoKYGBgCgpgYGB7cn0KaWYgKGNvcihUcmFqZWN0b3JpZXMuSGVtJFBzZXVkb3RpbWVTY29yZSwgTmV1cm9ucy5kYXRhQGFzc2F5cyRSTkFAZGF0YVsnSG1nYTInLCBUcmFqZWN0b3JpZXMuSGVtJEJhcmNvZGVzXSkgPiAwKSB7CiAgVHJhamVjdG9yaWVzLkhlbSRQc2V1ZG90aW1lU2NvcmUgPC0gLShUcmFqZWN0b3JpZXMuSGVtJFBzZXVkb3RpbWVTY29yZSAtIG1heChUcmFqZWN0b3JpZXMuSGVtJFBzZXVkb3RpbWVTY29yZSkpCn0KYGBgCgojIyMgUGFsbGlhbCBuZXVyb25zCgpgYGB7cn0KVHJhamVjdG9yaWVzLlBhbGxpYWwgPC0gTmV1cm9ucy5kYXRhQG1ldGEuZGF0YSAlPiUKICAgICAgICAgICAgICAgICAgICAgICAgc2VsZWN0KCJCYXJjb2RlcyIsICJuQ291bnRfUk5BIiwgIlNwcmluZ18xIiwgIlNwcmluZ18yIiwgIkFQX3NpZ25hdHVyZSIsIkJQX3NpZ25hdHVyZSIsICJFTl9zaWduYXR1cmUiLCAiTE5fc2lnbmF0dXJlIiwgIkxpbmVhZ2UiKSAlPiUKICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyKExpbmVhZ2UgPT0gIlBhbGxpYWxfbmV1cm9ucyIpCiAgICAgICAgICAgICAgICAgIApgYGAKCmBgYHtyfQpmaXQgPC0gcHJpbmNpcGFsX2N1cnZlKGFzLm1hdHJpeChUcmFqZWN0b3JpZXMuUGFsbGlhbFssYygiU3ByaW5nXzEiLCAiU3ByaW5nXzIiKV0pLAogICAgICAgICAgICAgICAgICAgICAgIHNtb290aGVyPSdsb3dlc3MnLAogICAgICAgICAgICAgICAgICAgICAgIHRyYWNlPVRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgZiA9IC43LAogICAgICAgICAgICAgICAgICAgICAgIHN0cmV0Y2g9MCkKCiNUaGUgcHJpbmNpcGFsIGN1cnZlIHNtb290aGVkClBhbGxpYWwucGMubGluZSA8LSBhcy5kYXRhLmZyYW1lKGZpdCRzW29yZGVyKGZpdCRsYW1iZGEpLF0pCgojUHNldWRvdGltZSBzY29yZQpUcmFqZWN0b3JpZXMuUGFsbGlhbCRQc2V1ZG90aW1lU2NvcmUgPC0gZml0JGxhbWJkYS9tYXgoZml0JGxhbWJkYSkKYGBgCgpgYGB7cn0KaWYgKGNvcihUcmFqZWN0b3JpZXMuUGFsbGlhbCRQc2V1ZG90aW1lU2NvcmUsIE5ldXJvbnMuZGF0YUBhc3NheXMkUk5BQGRhdGFbJ0htZ2EyJywgVHJhamVjdG9yaWVzLlBhbGxpYWwkQmFyY29kZXNdKSA+IDApIHsKICBUcmFqZWN0b3JpZXMuUGFsbGlhbCRQc2V1ZG90aW1lU2NvcmUgPC0gLShUcmFqZWN0b3JpZXMuUGFsbGlhbCRQc2V1ZG90aW1lU2NvcmUgLSBtYXgoVHJhamVjdG9yaWVzLlBhbGxpYWwkUHNldWRvdGltZVNjb3JlKSkKfQpgYGAKCiMjIyBDb21iaW5lIHRoZSB0d28gdHJhamVjdG9yaWVzJyBkYXRhCgpgYGB7cn0KVHJhamVjdG9yaWVzLm5ldXJvbnMgPC0gcmJpbmQoVHJhamVjdG9yaWVzLlBhbGxpYWwsIFRyYWplY3Rvcmllcy5IZW0pCmBgYAoKYGBge3J9CmNvbHMgPC0gYnJld2VyLnBhbChuID0xMSwgbmFtZSA9ICJTcGVjdHJhbCIpCgpnZ3Bsb3QoVHJhamVjdG9yaWVzLm5ldXJvbnMsIGFlcyhTcHJpbmdfMSwgU3ByaW5nXzIpKSArCiAgZ2VvbV9wb2ludChhZXMoY29sb3I9UHNldWRvdGltZVNjb3JlKSwgc2l6ZT0yLCBzaGFwZT0xNikgKyAKICBzY2FsZV9jb2xvcl9ncmFkaWVudG4oY29sb3Vycz1yZXYoY29scyksIG5hbWU9J1NwZXVkb3RpbWUgc2NvcmUnKSArCiAgZ2VvbV9saW5lKGRhdGE9UGFsbGlhbC5wYy5saW5lLCBjb2xvcj0iIzAyNmM5YSIsIHNpemU9MC43NykgKwogIGdlb21fbGluZShkYXRhPUhlbS5wYy5saW5lLCBjb2xvcj0iI2NjMzkxYiIsIHNpemU9MC43NykKYGBgCgojIyMgU2hpZnQgUHNldWRvdGltZSBpbiBib3RoIGxpbmVhZ2UKClNpbmNlIHdlIG9ic2VydmUgdGhlIGZpcnN0IDI1JSBvZiBib3RoIHRyYWplY3RvcmllcyBhcmUgb2NjdXBpZWQgYnkgZmV3LCBsaWtlbHkgcHJvZ2VuaXRvciBjZWxscywgd2Ugc2hpZnQgdGhpcyBjZWxsIGFsb25nIHRoZSBheGlzCgpgYGB7cn0KUHNldWRvdGltZS5pbnRlcnZhbHMgPC0gVHJhamVjdG9yaWVzLm5ldXJvbnMlPiUKICAgICAgICAgICAgICAgICAgICAgICAgICBzZWxlY3QoTGluZWFnZSwgUHNldWRvdGltZVNjb3JlKSAlPiUKICAgICAgICAgICAgICAgICAgICAgICAgICBtdXRhdGUoUHNldWRvdGltZS5iaW5zID0gY3V0KFRyYWplY3Rvcmllcy5uZXVyb25zJFBzZXVkb3RpbWVTY29yZSwgc2VxKDAsIG1heChUcmFqZWN0b3JpZXMubmV1cm9ucyRQc2V1ZG90aW1lU2NvcmUpICsgMC4wNSwgMC4wNSksIGRpZy5sYWIgPSAyLCByaWdodCA9IEZBTFNFKSkgJT4lCiAgICAgICAgICAgICAgICAgICAgICAgICAgZ3JvdXBfYnkoTGluZWFnZSwgUHNldWRvdGltZS5iaW5zKSAlPiUKICAgICAgICAgICAgICAgICAgICAgICAgICBzdW1tYXJpc2Uobj1uKCkpCgpnZ3Bsb3QoUHNldWRvdGltZS5pbnRlcnZhbHMsIGFlcyh4PVBzZXVkb3RpbWUuYmlucywgeT1uLCBmaWxsPUxpbmVhZ2UpKSArCiAgICAgICAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHdpZHRoID0gMC45MCkgKwogICAgICAgIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gNDUsIGhqdXN0PTEpKSsKICAgICAgICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXM9IGMoIiNjYzM5MWIiLCAiIzAyNmM5YSIpKQpgYGAKCmBgYHtyfQpzY29yZSA8LSBzYXBwbHkoVHJhamVjdG9yaWVzLm5ldXJvbnMkUHNldWRvdGltZVNjb3JlLAogICAgICAgICAgICAgICAgRlVOID0gZnVuY3Rpb24oeCkgaWYgKHggPD0gMC4yKSB7eD0gMC4yfSBlbHNlIHsgeD14IH0pCgpUcmFqZWN0b3JpZXMubmV1cm9ucyRQc2V1ZG90aW1lU2NvcmUuc2hpZnRlZCA8LSAoc2NvcmUgLSBtaW4oc2NvcmUpKSAvIChtYXgoc2NvcmUpIC0gbWluKHNjb3JlKSkKYGBgCgpgYGB7cn0KZ2dwbG90KFRyYWplY3Rvcmllcy5uZXVyb25zLCBhZXMoeD0gUHNldWRvdGltZVNjb3JlLnNoaWZ0ZWQsIHk9IG5Db3VudF9STkEvMTAwMDApKSArCiAgICAgICAgZ2VvbV9wb2ludChhZXMoY29sb3I9IExpbmVhZ2UpLCBzaXplPTAuNSkgKwogICAgICAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9IGMoIiNjYzM5MWIiLCAiIzAyNmM5YSIpKSArCiAgICAgICAgZ2VvbV9zbW9vdGgobWV0aG9kPSJsb2VzcyIsIG49IDUwLCBhZXMoY29sb3I9IExpbmVhZ2UpKSArCiAgICAgICAgeWxpbSgwLE5BKQpgYGAKCmBgYHtyfQpybShsaXN0ID0gbHMoKVshbHMoKSAlaW4lIGMoIlRyYWplY3Rvcmllcy5uZXVyb25zIildKQpgYGAKCiMjIExvYWQgcHJvZ2VuaXRvcnMgd2l0aCBjZWxsIGN5Y2xlIHRyYWplY3RvcnkgZml0dGVkCgpgYGB7cn0KUHJvZ2VuaXRvcnMuZGF0YSA8LSByZWFkUkRTKCIuLi9Qcm9nZW5pdG9yc0RpdmVyc2l0eS9Qcm9nZW5pdG9ycy5SRFMiKQpgYGAKCmBgYHtyfQp0YWJsZShQcm9nZW5pdG9ycy5kYXRhJENlbGxfaWRlbnQpCmBgYAoKVG8gYmFsYW5jZSB0aGUgbnVtYmVyIG9mIHByb2dlbml0b3JzIGluIGJvdGggZG9tYWluIHdlIHdpbGwgb25seSB3b3JrIHdpdGggKkhlbSogYW5kICpNZWRpYWxfcGFsbGl1bSogYW5ub3RhdGVkIGNlbGxzLiBTaW5jZSB3ZSBhcmUgdXNpbmcgcGFsbGlhbCBjZWxsIHRvIGNvbnRyYXN0IENSIHNwZWNpZmljIHRyYWplY3Rvcnkgd2UgdGhpbmsgdGhpcyBhcHByb3hpbWF0aW9uIHdpbGwgbm90IHNpZ25pZmljYW50bHkgYWZmZWN0IG91ciBhbmFseXNpcy4KCmBgYHtyfQpQcm9nZW5pdG9ycy5kYXRhIDwtICBzdWJzZXQoUHJvZ2VuaXRvcnMuZGF0YSwgc3Vic2V0ID0gQ2VsbF9pZGVudCAlaW4lIGMoIkhlbSIsICJNZWRpYWxfcGFsbGl1bSIpICYgb3JpZy5pZGVudCA9PSAiSGVtMSIpCmBgYAoKYGBge3IgZmlnLmRpbT1jKDYsIDQpfQpwMSA8LSBEaW1QbG90KFByb2dlbml0b3JzLmRhdGEsCiAgICAgICAgcmVkdWN0aW9uID0gInNwcmluZyIsCiAgICAgICAgcHQuc2l6ZSA9IDAuNSwKICAgICAgICBjb2xzID0gIGMoIiNlM2MxNDgiLCAiI2U0NmI2YiIpKSArIE5vQXhlcygpCgpwMiA8LSBGZWF0dXJlUGxvdChvYmplY3QgPSBQcm9nZW5pdG9ycy5kYXRhLAogICAgICAgICAgICBmZWF0dXJlcyA9ICJSZXZlbGlvLmNjIiwKICAgICAgICAgICAgcHQuc2l6ZSA9IDAuNSwKICAgICAgICAgICAgY29scyA9IHJldihicmV3ZXIucGFsKDEwLCJTcGVjdHJhbCIpKSwKICAgICAgICAgICAgcmVkdWN0aW9uID0gInNwcmluZyIsCiAgICAgICAgICAgIG9yZGVyID0gVCkgJiBOb0F4ZXMoKQoKcDMgPC0gRGltUGxvdChvYmplY3QgPSBQcm9nZW5pdG9ycy5kYXRhLAogICAgICAgIGdyb3VwLmJ5ID0gIlJldmVsaW8ucGhhc2UiLAogICAgICAgIHB0LnNpemUgPSAwLjUsCiAgICAgICAgcmVkdWN0aW9uID0gInNwcmluZyIsCiAgICAgICAgY29scyA9ICBjKHdlc19wYWxldHRlKCJGYW50YXN0aWNGb3gxIilbMTozXSwiZ3JleTQwIix3ZXNfcGFsZXR0ZSgiRmFudGFzdGljRm94MSIpWzVdKSkgJiBOb0F4ZXMoKQoKcDEgKyBwMiArIHAzICArIHBhdGNod29yazo6cGxvdF9sYXlvdXQobmNvbCA9IDIpCmBgYAoKIyMgQ29tYmluZWQgcHJvZ2VuaXRvcnMgYW5kIG5ldXJvbnMgYWxvbmcgUHNldWRvdGltZQoKYGBge3J9CiMgU3RhcnQgd2l0aCBuZXVyb25zIGRhdGEKVHJhamVjdG9yaWVzLmFsbCA8LSBUcmFqZWN0b3JpZXMubmV1cm9ucyAlPiUgc2VsZWN0KEJhcmNvZGVzLCBuQ291bnRfUk5BLCBTcHJpbmdfMSwgU3ByaW5nXzIsIExpbmVhZ2UpCgpUcmFqZWN0b3JpZXMuYWxsJFBzZXVkb3RpbWUgPC0gVHJhamVjdG9yaWVzLm5ldXJvbnMkUHNldWRvdGltZVNjb3JlLnNoaWZ0ZWQgKyAwLjUKVHJhamVjdG9yaWVzLmFsbCRQaGFzZSA8LSBOQQpgYGAKCmBgYHtyfQojIEFkZCBwcm9nZW5pdG9ycyBkYXRhClRyYWplY3Rvcmllcy5wcm9nZW5pdG9ycyA8LSBQcm9nZW5pdG9ycy5kYXRhQG1ldGEuZGF0YSAlPiUKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2VsZWN0KEJhcmNvZGVzLCBuQ291bnRfUk5BLCBTcHJpbmdfMSwgU3ByaW5nXzIpICU+JSAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbXV0YXRlKExpbmVhZ2U9IGlmZWxzZShQcm9nZW5pdG9ycy5kYXRhJENlbGxfaWRlbnQgPT0gIk1lZGlhbF9wYWxsaXVtIiwgIlBhbGxpYWxfbmV1cm9ucyIsICJDYWphbC1SZXR6aXVzX25ldXJvbnMiKSAsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBQc2V1ZG90aW1lPSBQcm9nZW5pdG9ycy5kYXRhJFJldmVsaW8uY2MvMiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFBoYXNlID0gUHJvZ2VuaXRvcnMuZGF0YSRSZXZlbGlvLnBoYXNlKQpgYGAKCmBgYHtyfQpUcmFqZWN0b3JpZXMuV1Q8LSByYmluZChUcmFqZWN0b3JpZXMuYWxsLCBUcmFqZWN0b3JpZXMucHJvZ2VuaXRvcnMpCgpUcmFqZWN0b3JpZXMuV1QkUGhhc2UgPC0gZmFjdG9yKFRyYWplY3Rvcmllcy5XVCRQaGFzZSwgbGV2ZWxzID0gYygiRzEuUyIsICJTIiwgIkcyIiwgIkcyLk0iLCAiTS5HMSIpKQpgYGAKCmBgYHtyIGZpZy5kaW09Yyg5LDMpfQpwMSA8LSBnZ3Bsb3QoVHJhamVjdG9yaWVzLldULCBhZXMoU3ByaW5nXzEsIFNwcmluZ18yKSkgKwogICAgICAgIGdlb21fcG9pbnQoYWVzKGNvbG9yPVBzZXVkb3RpbWUpLCBzaXplPTAuNSkgKyAKICAgICAgICBzY2FsZV9jb2xvcl9ncmFkaWVudG4oY29sb3Vycz1yZXYoYnJld2VyLnBhbChuID0xMSwgbmFtZSA9ICJTcGVjdHJhbCIpKSwgbmFtZT0nUHNldWRvdGltZSBzY29yZScpCgpwMiA8LSBnZ3Bsb3QoVHJhamVjdG9yaWVzLldULCBhZXMoU3ByaW5nXzEsIFNwcmluZ18yKSkgKwogICAgICAgIGdlb21fcG9pbnQoYWVzKGNvbG9yPSBMaW5lYWdlKSwgc2l6ZT0wLjUpICsKICAgICAgICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPSBjKCIjY2MzOTFiIiwgIiMwMjZjOWEiKSkKCnAxICsgcDIKYGBgCgpgYGB7ciBmaWcuZGltPWMoOSwzKX0KcDEgPC0gZ2dwbG90KFRyYWplY3Rvcmllcy5XVCwgYWVzKHg9IFBzZXVkb3RpbWUsIHk9IG5Db3VudF9STkEvMTAwMDApKSArCiAgICAgICAgZ2VvbV9wb2ludChhZXMoY29sb3I9IFBoYXNlKSwgc2l6ZT0wLjUpICsKICAgICAgICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPSBjKHdlc19wYWxldHRlKCJGYW50YXN0aWNGb3gxIilbMTozXSwiZ3JleTQwIix3ZXNfcGFsZXR0ZSgiRmFudGFzdGljRm94MSIpWzVdKSkgKwogICAgICAgIGdlb21fc21vb3RoKG1ldGhvZD0ibG9lc3MiLCBuPSA1MCwgZmlsbD0iZ3JleSIpICsKICAgICAgICB5bGltKDAsTkEpCgpwMiA8LSBnZ3Bsb3QoVHJhamVjdG9yaWVzLldULCBhZXMoeD0gUHNldWRvdGltZSwgeT0gbkNvdW50X1JOQS8xMDAwMCkpICsKICAgICAgICBnZW9tX3BvaW50KGFlcyhjb2xvcj0gTGluZWFnZSksIHNpemU9MC41KSArCiAgICAgICAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz0gYygiI2NjMzkxYiIsICIjMDI2YzlhIikpICsKICAgICAgICBnZW9tX3Ntb290aChtZXRob2Q9ImxvZXNzIiwgbj0gNTAsIGZpbGw9ImdyZXkiKSArCiAgICAgICAgeWxpbSgwLE5BKQoKcDEgLyBwMgpgYGAKYGBge3J9CnJtKGxpc3QgPSBscygpWyFscygpICVpbiUgYygiVHJhamVjdG9yaWVzLldUIildKQpnYygpCmBgYAoKIyBQc2V1ZG90aW1lIGluIHRoZSBLTwoKYGBge3J9CldULktPLmludGVncmF0ZWQgPC0gcmVhZFJEUygiV1RfS08uaW50ZWdyYXRlZC5SRFMiKQpgYGAKCiMjIEV4dHJhY3QgQ1IgYW5kIHBhbGxpYWwgbmV1cm9ucwoKYGBge3J9Ck5ldXJvbnMuZGF0YSA8LSAgc3Vic2V0KFdULktPLmludGVncmF0ZWQsCiAgICAgICAgICAgICAgICAgICAgICAgIHN1YnNldCA9IExpbmVhZ2UgJWluJSBjKCJDYWphbC1SZXR6aXVzX25ldXJvbnMiLCAiUGFsbGlhbF9uZXVyb25zIikgJiBvcmlnLmlkZW50ID09ICJHbW5jX0tPIiAmIENlbGwuaWRlbnQuS08gJWluJSBjKCJOZXVyb25fcHJvYi4yIiwgIk5ldXJvbl9wcm9iLjMiKSkKCkRpbVBsb3QoTmV1cm9ucy5kYXRhLAogICAgICAgIGdyb3VwLmJ5ID0gIkxpbmVhZ2UiLAogICAgICAgIHJlZHVjdGlvbiA9ICJpbnRlZ3JhdGVkX3NwcmluZyIsCiAgICAgICAgcHQuc2l6ZSA9IDEsCiAgICAgICAgY29scyA9ICBjKCIjY2MzOTFiIiwiIzAyNmM5YSIpCiAgICAgICAgKSArIE5vQXhlcygpCmBgYAoKIyMgRml0IHByaW5jaXBhbGUgY3VydmUgb24gdGhlIHR3byBsaW5lYWdlcwoKYGBge3J9CmZpdCA8LSBwcmluY2lwYWxfY3VydmUoYXMubWF0cml4KE5ldXJvbnMuZGF0YUBtZXRhLmRhdGFbLGMoIlNwcmluZ18xIiwgIlNwcmluZ18yIildKSwKICAgICAgICAgICAgICAgICAgICAgICBzbW9vdGhlcj0nbG93ZXNzJywKICAgICAgICAgICAgICAgICAgICAgICB0cmFjZT1UUlVFLAogICAgICAgICAgICAgICAgICAgICAgIGYgPSAxLAogICAgICAgICAgICAgICAgICAgICAgIHN0cmV0Y2g9MCkKYGBgCgpgYGB7cn0KI1BzZXVkb3RpbWUgc2NvcmUKUHNldWRvdGltZVNjb3JlIDwtIGZpdCRsYW1iZGEvbWF4KGZpdCRsYW1iZGEpCgppZiAoY29yKFBzZXVkb3RpbWVTY29yZSwgTmV1cm9ucy5kYXRhQGFzc2F5cyRSTkFAZGF0YVsnSG1nYTInLCBdKSA+IDApIHsKICBOZXVyb25zLmRhdGEkUHNldWRvdGltZVNjb3JlIDwtIC0oUHNldWRvdGltZVNjb3JlIC0gbWF4KFBzZXVkb3RpbWVTY29yZSkpCn0KCmNvbHMgPC0gYnJld2VyLnBhbChuID0xMSwgbmFtZSA9ICJTcGVjdHJhbCIpCgpnZ3Bsb3QoTmV1cm9ucy5kYXRhQG1ldGEuZGF0YSwgYWVzKFNwcmluZ18xLCBTcHJpbmdfMikpICsKICBnZW9tX3BvaW50KGFlcyhjb2xvcj1Qc2V1ZG90aW1lU2NvcmUpLCBzaXplPTIsIHNoYXBlPTE2KSArIAogIHNjYWxlX2NvbG9yX2dyYWRpZW50bihjb2xvdXJzPXJldihjb2xzKSwgbmFtZT0nUHNldWRvdGltZSBzY29yZScpCmBgYAoKIyMjIFNoaWZ0IHBzZXVkb3RpbWUgc2NvcmUKCmBgYHtyfQpzY29yZSA8LSBzYXBwbHkoTmV1cm9ucy5kYXRhJFBzZXVkb3RpbWVTY29yZSwKICAgICAgICAgICAgICAgIEZVTiA9IGZ1bmN0aW9uKHgpIGlmICh4IDw9IDAuMjUpIHt4PSAwLjI1fSBlbHNlIHsgeD14IH0pCgpOZXVyb25zLmRhdGEkUHNldWRvdGltZVNjb3JlLnNoaWZ0ZWQgPC0gKHNjb3JlIC0gbWluKHNjb3JlKSkgLyAobWF4KHNjb3JlKSAtIG1pbihzY29yZSkpCmBgYAoKCmBgYHtyfQpnZ3Bsb3QoTmV1cm9ucy5kYXRhQG1ldGEuZGF0YSwgYWVzKHg9IFBzZXVkb3RpbWVTY29yZS5zaGlmdGVkLCB5PSBuQ291bnRfUk5BLzEwMDAwKSkgKwogICAgICAgIGdlb21fcG9pbnQoYWVzKGNvbG9yPSBMaW5lYWdlKSwgc2l6ZT0wLjUpICsKICAgICAgICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPSBjKCIjY2MzOTFiIiwgIiMwMjZjOWEiKSkgKwogICAgICAgIGdlb21fc21vb3RoKG1ldGhvZD0ibG9lc3MiLCBuPSA1MCwgYWVzKGNvbG9yPSBMaW5lYWdlKSkgKwogICAgICAgIHlsaW0oMCxOQSkKYGBgCgojIyBGaXQgY2VsbCBjeWNsZSB0cmFqZWN0b3J5IG9uIHByb2dlbml0b3JzCgpUbyBiYWxhbmNlIHRoZSBudW1iZXIgb2YgcHJvZ2VuaXRvcnMgaW4gYm90aCBkb21haW4gd2Ugd2lsbCBvbmx5IHdvcmsgd2l0aCAqSGVtKiBhbmQgKk1lZGlhbF9wYWxsaXVtKiBhbm5vdGF0ZWQgY2VsbHMuIFNpbmNlIHdlIGFyZSB1c2luZyBwYWxsaWFsIGNlbGwgdG8gY29udHJhc3QgQ1Igc3BlY2lmaWMgdHJhamVjdG9yeSB3ZSB0aGluayB0aGlzIGFwcHJveGltYXRpb24gd2lsbCBub3Qgc2lnbmlmaWNhbnRseSBhZmZlY3Qgb3VyIGFuYWx5c2lzLgoKYGBge3J9ClByb2dlbml0b3JzLmRhdGEgPC0gIHN1YnNldChXVC5LTy5pbnRlZ3JhdGVkLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgc3Vic2V0ID0gTGluZWFnZSAlaW4lIGMoIkNhamFsLVJldHppdXNfbmV1cm9ucyIsICJQYWxsaWFsX25ldXJvbnMiKSAmIG9yaWcuaWRlbnQgPT0gIkdtbmNfS08iICYgQ2VsbC5pZGVudC5LTyAlaW4lIGMoIkhlbSIsICJNZWRpYWxfcGFsbGl1bSIpKQoKRGltUGxvdChQcm9nZW5pdG9ycy5kYXRhLAogICAgICAgIHJlZHVjdGlvbiA9ICJpbnRlZ3JhdGVkX3NwcmluZyIsCiAgICAgICAgZ3JvdXAuYnkgPSAiQ2VsbC5pZGVudC5LTyIsCiAgICAgICAgcHQuc2l6ZSA9IDEsCiAgICAgICAgY29scyA9ICBjKCIjY2MzOTFiIiwiIzAyNmM5YSIpCiAgICAgICAgKSArIE5vQXhlcygpCgpybShXVC5LTy5pbnRlZ3JhdGVkKQpnYygpCmBgYAoKIyMjIFByZXBhcmUgZGF0YSBmb3IgUmV2ZWxpbwoKYGBge3J9CnJhd0NvdW50cyA8LSBhcy5tYXRyaXgoUHJvZ2VuaXRvcnMuZGF0YVtbIlJOQSJdXUBjb3VudHMpCgojIEZpbHRlciBnZW5lcyBleHByZXNzZWQgYnkgbGVzcyB0aGFuIDEwIGNlbGxzCm51bS5jZWxscyA8LSBNYXRyaXg6OnJvd1N1bXMocmF3Q291bnRzID4gMCkKZ2VuZXMudXNlIDwtIG5hbWVzKHggPSBudW0uY2VsbHNbd2hpY2goeCA9IG51bS5jZWxscyA+PSAxMCldKQpyYXdDb3VudHMgPC0gcmF3Q291bnRzW2dlbmVzLnVzZSwgXQpgYGAKCiMjIyBSdW4gUmV2ZWxpbwoKYGBge3J9CkNDZ2VuZXMgPC0gcmVhZC50YWJsZSgiLi4vQ2hvcm9pZFBsZXh1c190cmFqZWN0b3J5L0NDZ2VuZXMuY3N2Iiwgc2VwID0gIjsiLCBoZWFkZXIgPSBUKQpgYGAKCldlIGNhbiBub3cgZm9sbG93IHRoZSB0dXRvcmlhbCBmb3JtIHRoZSBbcGFja2FnZSBnaXRodWIgcGFnZV0oaHR0cHM6Ly9naXRodWIuY29tL2RhbmllbHNjaHcxODgvUmV2ZWxpbykKCgpgYGB7ciBjYWNoZT1UUlVFfQpteURhdGEgPC0gY3JlYXRlUmV2ZWxpb09iamVjdChyYXdEYXRhID0gcmF3Q291bnRzLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjeWNsaWNHZW5lcyA9IENDZ2VuZXMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxvd2VybkdlbmVDdXRvZmYgPSAwLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICB1cHBlcm5VTUlDdXRvZmYgPSBJbmYsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNjUGhhc2VBc3NpZ25CYXNlZE9uSW5kaXZpZHVhbEJhdGNoZXMgPSBGKQoKcm0oInJhd0NvdW50cyIpCmdjKCkKYGBgCgpUaGUgZ2V0Q2VsbEN5Y2xlUGhhc2VBc3NpZ25JbmZvcm1hdGlvbiBmaWx0ZXIg4oCcb3V0bGllcuKAnSBjZWxscyBmb3IgY2VsbCBjeWNsZSBwaGFzZSBhc3NpZ25hdGlvbi4gV2UgbW9kaWZpZWQgdGhlIGZ1bmN0aW9uIHRvIGtlZXAgYWxsIGNlbGxzIGFzIHdlIG9ic2VydmVkIHRoaXMgZG9lcyBub3QgYWZmZWN0IHRoZSBnbG9iYWwgY2VsbCBjeWNsZSBmaXR0aW5nIHByb2NlZHVyZQoKYGBge3IgY2FjaGU9VFJVRX0Kc291cmNlKCIuLi9GdW5jdGlvbnMvZnVuY3Rpb25zX0luaXRpYWxpemF0aW9uQ0NQaGFzZUFzc2lnbkZpbHRlcmluZy5SIikKCm15RGF0YSA8LSBnZXRDZWxsQ3ljbGVQaGFzZUFzc2lnbl9hbGxjZWxscyhteURhdGEpCmBgYAoKYGBge3IgY2FjaGU9VFJVRX0KbXlEYXRhIDwtIGdldFBDQURhdGEoZGF0YUxpc3QgPSBteURhdGEpCgpteURhdGEgPC0gZ2V0T3B0aW1hbFJvdGF0aW9uKGRhdGFMaXN0ID0gbXlEYXRhKQpgYGAKCiMjIyBHcmFwaGljYWwgYXNzZXNtZW50IG9mIGNlbGwgY3ljbGUgZml0dGluZwoKYGBge3J9CkNlbGxDeWNsZWRhdGEgPC0gY2JpbmQoYXMuZGF0YS5mcmFtZSh0KG15RGF0YUB0cmFuc2Zvcm1lZERhdGEkZGMkZGF0YVsxOjIsXSkpLAogICAgICAgICAgICAgICAgICAgICAgIG5VTUk9IG15RGF0YUBjZWxsSW5mbyRuVU1JLAogICAgICAgICAgICAgICAgICAgICAgIFJldmVsaW8ucGhhc2UgPSBmYWN0b3IobXlEYXRhQGNlbGxJbmZvJGNjUGhhc2UsIGxldmVscyA9IGMoIkcxLlMiLCAiUyIsICJHMiIsICJHMi5NIiwgIk0uRzEiKSksCiAgICAgICAgICAgICAgICAgICAgICAgUmV2ZWxpby5jYz0gbXlEYXRhQGNlbGxJbmZvJGNjUGVyY2VudGFnZVVuaWZvcm1seVNwYWNlZCwKICAgICAgICAgICAgICAgICAgICAgICBEb21haW49IFByb2dlbml0b3JzLmRhdGEkQ2VsbC5pZGVudC5LTykKYGBgCgpgYGB7cn0KcDEgPC0gZ2dwbG90KENlbGxDeWNsZWRhdGEsIGFlcyhEQzEsIERDMikpICsKICAgICAgICBnZW9tX3BvaW50KGFlcyhjb2xvciA9IFJldmVsaW8ucGhhc2UpLCBzaXplPSAwLjUpICsKICAgICAgICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPSBjKHdlc19wYWxldHRlKCJGYW50YXN0aWNGb3gxIilbMTozXSwiZ3JleTQwIix3ZXNfcGFsZXR0ZSgiRmFudGFzdGljRm94MSIpWzVdKSkKCnAyIDwtIGdncGxvdChDZWxsQ3ljbGVkYXRhLCBhZXMoREMxLCBEQzIpKSArCiAgICAgICAgZ2VvbV9wb2ludChhZXMoY29sb3IgPSBEb21haW4pLCBzaXplID0gMC41KSArCiAgICAgICAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz0gYygiI2NjMzkxYiIsIiMwMjZjOWEiKSkKCnAzIDwtIGdncGxvdChDZWxsQ3ljbGVkYXRhLCBhZXMoREMxLCBEQzIpKSArCiAgICAgICAgZ2VvbV9wb2ludChhZXMoY29sb3I9UmV2ZWxpby5jYyksIHNpemU9MC41LCBzaGFwZT0xNikgKyAKICAgICAgICBzY2FsZV9jb2xvcl9ncmFkaWVudG4oY29sb3Vycz1yZXYoY29sb3JSYW1wUGFsZXR0ZShicmV3ZXIucGFsKG4gPTExLCBuYW1lID0gIlNwZWN0cmFsIikpKDEwMCkpLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuYW1lPSdSZXZlbGlvX2NjJykKCnA0IDwtIGdncGxvdChDZWxsQ3ljbGVkYXRhLCBhZXMoeD0gUmV2ZWxpby5jYywgeT0gblVNSS8xMDAwMCkpICsKICAgICAgICBnZW9tX3BvaW50KGFlcyhjb2xvcj0gUmV2ZWxpby5waGFzZSksIHNpemU9MC41KSArCiAgICAgICAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz0gYyh3ZXNfcGFsZXR0ZSgiRmFudGFzdGljRm94MSIpWzE6M10sImdyZXk0MCIsd2VzX3BhbGV0dGUoIkZhbnRhc3RpY0ZveDEiKVs1XSkpICsKICAgICAgICBnZW9tX3Ntb290aChtZXRob2Q9ImxvZXNzIiwgbj0gNTAsIGZpbGw9ImdyZXkiKSArCiAgICAgICAgeWxpbSgwLE5BKQoKKHAxICsgcDIpIC8ocDMgKyBwNCkKYGBgCgpgYGB7cn0KUHJvZ2VuaXRvcnMuZGF0YSRSZXZlbGlvLnBoYXNlIDwtIENlbGxDeWNsZWRhdGEkUmV2ZWxpby5waGFzZQpQcm9nZW5pdG9ycy5kYXRhJFJldmVsaW8uY2MgPC0gQ2VsbEN5Y2xlZGF0YSRSZXZlbGlvLmNjCgpwMSA8LSBGZWF0dXJlUGxvdChvYmplY3QgPSBQcm9nZW5pdG9ycy5kYXRhLAogICAgICAgICAgICAgICAgICBmZWF0dXJlcyA9ICJSZXZlbGlvLmNjIiwKICAgICAgICAgICAgICAgICAgcHQuc2l6ZSA9IDEsCiAgICAgICAgICAgICAgICAgIGNvbHMgPSByZXYoYnJld2VyLnBhbCgxMCwiU3BlY3RyYWwiKSksCiAgICAgICAgICAgICAgICAgIHJlZHVjdGlvbiA9ICJpbnRlZ3JhdGVkX3NwcmluZyIsCiAgICAgICAgICAgICAgICAgIG9yZGVyID0gVCkgJiBOb0F4ZXMoKQoKcDIgPC0gRGltUGxvdChvYmplY3QgPSBQcm9nZW5pdG9ycy5kYXRhLAogICAgICAgICAgICAgIGdyb3VwLmJ5ID0gIlJldmVsaW8ucGhhc2UiLAogICAgICAgICAgICAgIHB0LnNpemUgPSAxLAogICAgICAgICAgICAgIHJlZHVjdGlvbiA9ICJpbnRlZ3JhdGVkX3NwcmluZyIsCiAgICAgICAgICAgICAgY29scyA9ICBjKHdlc19wYWxldHRlKCJGYW50YXN0aWNGb3gxIilbMTozXSwiZ3JleTQwIix3ZXNfcGFsZXR0ZSgiRmFudGFzdGljRm94MSIpWzVdKSkgJiBOb0F4ZXMoKQoKcDEgLyBwMgpgYGAKCiMjIyBUcmFuc2ZlcnQgbGVhcm4gY2VsbCBjeWNsZSBheGlzCgpgYGB7cn0KUHJvZ2VuaXRvcnMgPC0gUHJvZ2VuaXRvcnMuZGF0YUBtZXRhLmRhdGEgJT4lIHNlbGVjdChCYXJjb2RlcywgbkNvdW50X1JOQSwgU3ByaW5nXzEsIFNwcmluZ18yLCBMaW5lYWdlKQoKUHJvZ2VuaXRvcnMkUHNldWRvdGltZVNjb3JlIDwtIENlbGxDeWNsZWRhdGEkUmV2ZWxpby5jYwpQcm9nZW5pdG9ycyRuVU1JIDwtIFByb2dlbml0b3JzLmRhdGEkbkNvdW50X1JOQQpgYGAKCiMjIENvbWJpbmUgUHJvZ2VuaXRvcnMgYW5kIGRpZmZlcmVudGlhdGluZyBuZXVyb25zIGRhdGEKCmBgYHtyfQojIFN0YXJ0IHdpdGggbmV1cm9ucyBkYXRhClRyYWplY3Rvcmllcy5hbGwgPC0gTmV1cm9ucy5kYXRhQG1ldGEuZGF0YSAlPiUgc2VsZWN0KEJhcmNvZGVzLCBuQ291bnRfUk5BLCBTcHJpbmdfMSwgU3ByaW5nXzIsIExpbmVhZ2UpCgpUcmFqZWN0b3JpZXMuYWxsJFBzZXVkb3RpbWUgPC0gTmV1cm9ucy5kYXRhJFBzZXVkb3RpbWVTY29yZS5zaGlmdGVkICsgMC41ClRyYWplY3Rvcmllcy5hbGwkUGhhc2UgPC0gTkEKYGBgCgpgYGB7cn0KIyBBZGQgcHJvZ2VuaXRvcnMgZGF0YQpUcmFqZWN0b3JpZXMucHJvZ2VuaXRvcnMgPC0gUHJvZ2VuaXRvcnMgJT4lCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlbGVjdChCYXJjb2RlcywgbkNvdW50X1JOQSwgU3ByaW5nXzEsIFNwcmluZ18yLCBMaW5lYWdlKSAlPiUgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG11dGF0ZShQc2V1ZG90aW1lPSBQcm9nZW5pdG9ycy5kYXRhJFJldmVsaW8uY2MvMiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFBoYXNlID0gUHJvZ2VuaXRvcnMuZGF0YSRSZXZlbGlvLnBoYXNlKQpgYGAKCmBgYHtyfQpUcmFqZWN0b3JpZXMuS08gPC0gcmJpbmQoVHJhamVjdG9yaWVzLmFsbCwgVHJhamVjdG9yaWVzLnByb2dlbml0b3JzKQoKVHJhamVjdG9yaWVzLktPJFBoYXNlIDwtIGZhY3RvcihUcmFqZWN0b3JpZXMuS08kUGhhc2UsIGxldmVscyA9IGMoIkcxLlMiLCAiUyIsICJHMiIsICJHMi5NIiwgIk0uRzEiKSkKYGBgCgpgYGB7cn0KcDEgPC0gZ2dwbG90KFRyYWplY3Rvcmllcy5LTywgYWVzKFNwcmluZ18xLCBTcHJpbmdfMikpICsKICAgICAgICBnZW9tX3BvaW50KGFlcyhjb2xvcj1Qc2V1ZG90aW1lKSwgc2l6ZT0wLjUpICsgCiAgICAgICAgc2NhbGVfY29sb3JfZ3JhZGllbnRuKGNvbG91cnM9cmV2KGJyZXdlci5wYWwobiA9MTEsIG5hbWUgPSAiU3BlY3RyYWwiKSksIG5hbWU9J1BzZXVkb3RpbWUgc2NvcmUnKQoKcDIgPC0gZ2dwbG90KFRyYWplY3Rvcmllcy5LTywgYWVzKFNwcmluZ18xLCBTcHJpbmdfMikpICsKICAgICAgICBnZW9tX3BvaW50KGFlcyhjb2xvcj0gTGluZWFnZSksIHNpemU9MC41KSArCiAgICAgICAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz0gYygiI2NjMzkxYiIsICIjMDI2YzlhIikpCgpwMSArIHAyCmBgYAoKYGBge3J9CnAxIDwtIGdncGxvdChUcmFqZWN0b3JpZXMuS08sIGFlcyh4PSBQc2V1ZG90aW1lLCB5PSBuQ291bnRfUk5BLzEwMDAwKSkgKwogICAgICAgIGdlb21fcG9pbnQoYWVzKGNvbG9yPSBQaGFzZSksIHNpemU9MC41KSArCiAgICAgICAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz0gYyh3ZXNfcGFsZXR0ZSgiRmFudGFzdGljRm94MSIpWzE6M10sImdyZXk0MCIsd2VzX3BhbGV0dGUoIkZhbnRhc3RpY0ZveDEiKVs1XSkpICsKICAgICAgICBnZW9tX3Ntb290aChtZXRob2Q9ImxvZXNzIiwgbj0gNTAsIGZpbGw9ImdyZXkiKSArCiAgICAgICAgeWxpbSgwLE5BKQoKcDIgPC0gZ2dwbG90KFRyYWplY3Rvcmllcy5LTywgYWVzKHg9IFBzZXVkb3RpbWUsIHk9IG5Db3VudF9STkEvMTAwMDApKSArCiAgICAgICAgZ2VvbV9wb2ludChhZXMoY29sb3I9IExpbmVhZ2UpLCBzaXplPTAuNSkgKwogICAgICAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9IGMoIiNjYzM5MWIiLCAiIzAyNmM5YSIpKSArCiAgICAgICAgZ2VvbV9zbW9vdGgoYWVzKGNvbG9yPSBMaW5lYWdlKSwgbWV0aG9kPSJsb2VzcyIsIG49IDUwLCBmaWxsPSJncmV5IikgKwogICAgICAgIHlsaW0oMCxOQSkKCnAxIC8gcDIKYGBgCgpgYGB7cn0KVHJhamVjdG9yaWVzIDwtIHJiaW5kKFRyYWplY3Rvcmllcy5LTywgVHJhamVjdG9yaWVzLldUKQoKcm0obGlzdCA9IGxzKClbIWxzKCkgJWluJSBjKCJUcmFqZWN0b3JpZXMiKV0pCmBgYAoKCiMgU3Vic2V0IHRoZSBmdWxsIGludGVncmF0ZWQgZGF0YXNldAoKYGBge3J9CldULktPLmludGVncmF0ZWQgPC0gcmVhZFJEUygiV1RfS08uaW50ZWdyYXRlZC5SRFMiKQoKbWV0YS5kYXRhIDwtIFdULktPLmludGVncmF0ZWRAbWV0YS5kYXRhW1RyYWplY3RvcmllcyRCYXJjb2RlcyxdCm1ldGEuZGF0YSRQc2V1ZG90aW1lIDwtIFRyYWplY3RvcmllcyRQc2V1ZG90aW1lCm1ldGEuZGF0YSRQaGFzZSA8LSBUcmFqZWN0b3JpZXMkUGhhc2UKYGBgCgpgYGB7cn0KV1QuS08uaW50ZWdyYXRlZCA8LSBDcmVhdGVTZXVyYXRPYmplY3QoY291bnRzID0gV1QuS08uaW50ZWdyYXRlZEBhc3NheXMkUk5BQGNvdW50c1ssIFRyYWplY3RvcmllcyRCYXJjb2Rlc10sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1ldGEuZGF0YSA9IG1ldGEuZGF0YSkKCnNwcmluZyA8LSBhcy5tYXRyaXgoV1QuS08uaW50ZWdyYXRlZEBtZXRhLmRhdGEgJT4lIHNlbGVjdCgiSW50ZWdyYXRlZF9TcHJpbmdfMSIsICJJbnRlZ3JhdGVkX1NwcmluZ18yIikpCiAgCldULktPLmludGVncmF0ZWRbWyJpbnRlZ3JhdGVkX3NwcmluZyJdXSA8LSBDcmVhdGVEaW1SZWR1Y09iamVjdChlbWJlZGRpbmdzID0gc3ByaW5nLCBrZXkgPSAiU3ByaW5nXyIsIGFzc2F5ID0gRGVmYXVsdEFzc2F5KFdULktPLmludGVncmF0ZWQpKQpgYGAKCmBgYHtyfQpwMSA8LSBGZWF0dXJlUGxvdChvYmplY3QgPSBXVC5LTy5pbnRlZ3JhdGVkLAogICAgICAgICAgICBmZWF0dXJlcyA9ICJQc2V1ZG90aW1lIiwKICAgICAgICAgICAgcHQuc2l6ZSA9IDAuNSwKICAgICAgICAgICAgY29scyA9IHJldihjb2xvclJhbXBQYWxldHRlKGJyZXdlci5wYWwobiA9MTEsIG5hbWUgPSAiU3BlY3RyYWwiKSkoMTAwKSksCiAgICAgICAgICAgIHJlZHVjdGlvbiA9ICJpbnRlZ3JhdGVkX3NwcmluZyIsCiAgICAgICAgICAgIG9yZGVyID0gVCkgJiBOb0F4ZXMoKQoKcDIgPC0gRGltUGxvdChvYmplY3QgPSBXVC5LTy5pbnRlZ3JhdGVkLAogICAgICAgIGdyb3VwLmJ5ID0gIkxpbmVhZ2UiLAogICAgICAgIHB0LnNpemUgPSAwLjUsCiAgICAgICAgcmVkdWN0aW9uID0gImludGVncmF0ZWRfc3ByaW5nIiwKICAgICAgICBjb2xzID0gIGMoIiNjYzM5MWIiLCAiIzAyNmM5YSIpKSAmIE5vQXhlcygpCgoKcDMgPC0gRGltUGxvdChvYmplY3QgPSBXVC5LTy5pbnRlZ3JhdGVkLAogICAgICAgIGdyb3VwLmJ5ID0gIlBoYXNlIiwKICAgICAgICBwdC5zaXplID0gMC41LAogICAgICAgIHJlZHVjdGlvbiA9ICJpbnRlZ3JhdGVkX3NwcmluZyIsCiAgICAgICAgY29scyA9ICBjKHdlc19wYWxldHRlKCJGYW50YXN0aWNGb3gxIilbMTozXSwiZ3JleTQwIix3ZXNfcGFsZXR0ZSgiRmFudGFzdGljRm94MSIpWzVdKSkgJiBOb0F4ZXMoKQoKcDEgKyBwMiArIHAzCgpnZ3NhdmUoIn4vQnVyZWF1L0ZpZzRfTU0vU3ByaW5nX1dUX0tPX1BzZXVkb3RpbWUucGRmIiwKICAgICAgIGRldmljZSA9ICJwZGYiLAogICAgICAgZHBpID0gInJldGluYSIpCmBgYAoKIyMjIE5vcm1hbGl6YXRpb24KCmBgYHtyfQpXVC5LTy5pbnRlZ3JhdGVkIDwtIE5vcm1hbGl6ZURhdGEoV1QuS08uaW50ZWdyYXRlZCwgbm9ybWFsaXphdGlvbi5tZXRob2QgPSAiTG9nTm9ybWFsaXplIiwgc2NhbGUuZmFjdG9yID0gMTAwMDAsIGFzc2F5ID0gIlJOQSIpCmBgYAoKYGBge3J9CldULktPLmludGVncmF0ZWQgPC0gRmluZFZhcmlhYmxlRmVhdHVyZXMoV1QuS08uaW50ZWdyYXRlZCwgc2VsZWN0aW9uLm1ldGhvZCA9ICJkaXNwIiwgbmZlYXR1cmVzID0gNjUwMCwgYXNzYXkgPSAiUk5BIikKYGBgCgojIyMgUGxvdCBzb21lIGdlbmVzIGFsb25nIHBzZXVkb3RpbWUKCmBgYHtyIGZpZy5kaW09YygxNSw5KSwgd2FybmluZz1GQUxTRX0Kc291cmNlKCIuLi9GdW5jdGlvbnMvZnVuY3Rpb25zX0dlbmVUcmVuZHMuUiIpCgpQbG90LkdlbmVzLnRyZW5kKFNldXJhdC5kYXRhPSBXVC5LTy5pbnRlZ3JhdGVkLAogICAgICAgICAgICAgICAgIGdyb3VwLmJ5ID0gIkdlbm90eXBlIiwKICAgICAgICAgICAgICAgICBnZW5lcz0gYygiR2FzMSIsIlNveDIiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJOZXVyb2cyIiwgIkJ0ZzIiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJUYnIxIiwgIk1hcHQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJUcnA3MyIsICJGb3hnMSIpKQoKZ2dzYXZlKCJ+L0J1cmVhdS9GaWc0X01NL05ldXJvLUdlbmVzX3RyZW5kX1dULUtPLnBkZiIsCiAgICAgICB3aWR0aCA9IDE1LCBoZWlnaHQgPSA5LAogICAgICAgZGV2aWNlID0gInBkZiIsCiAgICAgICBkcGkgPSAicmV0aW5hIikKYGBgCgpgYGB7ciBmaWcuZGltPWMoMTUsOSksIHdhcm5pbmc9RkFMU0V9ClBsb3QuR2VuZXMudHJlbmQoU2V1cmF0LmRhdGE9IFdULktPLmludGVncmF0ZWQsCiAgICAgICAgICAgICAgICAgZ3JvdXAuYnkgPSAiR2Vub3R5cGUiLAogICAgICAgICAgICAgICAgIGdlbmVzPSBjKCJHbW5jIiwgIk1jaWRhcyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkNjbm8iLCAiQ2NkYzY3IiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiRm94ajEiLCAiVHJwNzMiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJMaHgxIiwgIkNka24xYSIpKQoKZ2dzYXZlKCJ+L0J1cmVhdS9GaWc0X01NL0dtbmMtR2VuZXNfdHJlbmRfV1QtS08ucGRmIiwKICAgICAgIHdpZHRoID0gMTUsIGhlaWdodCA9IDksCiAgICAgICBkZXZpY2UgPSAicGRmIiwKICAgICAgIGRwaSA9ICJyZXRpbmEiKQpgYGAKCmBgYHtyIHdhcm5pbmc9RkFMU0UsIGZpZy5kaW09Yyg1LDIpfQpDUiA8LSBXVC5LTy5pbnRlZ3JhdGVkQG1ldGEuZGF0YSAlPiUgZmlsdGVyKExpbmVhZ2UgPT0gIkNhamFsLVJldHppdXNfbmV1cm9ucyIpICU+JSBzZWxlY3QoQmFyY29kZXMsUHNldWRvdGltZSxvcmlnLmlkZW50KQoKQ1IuZ2VuZXMgPC0gYXMuZGF0YS5mcmFtZSh0KFdULktPLmludGVncmF0ZWRAYXNzYXlzJFJOQUBkYXRhW2MoIkNhY25hMmQyIiwiUmVsbiIsICJOaGxoMiIsICJFYmYzIiksQ1IkQmFyY29kZXNdKSkKQ1IuZ2VuZXMkUHNldWRvdGltZSA8LSBDUiRQc2V1ZG90aW1lCkNSLmdlbmVzJEdlbm90eXBlIDwtIGZhY3RvcihDUiRvcmlnLmlkZW50LCBsZXZlbHMgPSBjKCJIZW0xIiwgIkdtbmNfS08iKSApIAoKQ1IuZ2VuZXMgIDwtIHJlc2hhcGUyOjptZWx0KENSLmdlbmVzLCBpZCA9IGMoIlBzZXVkb3RpbWUiLCAiR2Vub3R5cGUiKSkKCgpnZ3Bsb3QoQ1IuZ2VuZXMsIGFlcyh4PSBQc2V1ZG90aW1lLCB5PSB2YWx1ZSkpICsKICBnZW9tX3Ntb290aChtZXRob2Q9ImxvZXNzIiwgbj0gNTAsIGFlcyhjb2xvcj0gdmFyaWFibGUsIGxpbmV0eXBlPSBHZW5vdHlwZSkpICsKICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPSBjKHdlc19wYWxldHRlKCJGYW50YXN0aWNGb3gxIilbMTozXSx3ZXNfcGFsZXR0ZSgiRmFudGFzdGljRm94MSIpWzVdKSkgKwogIHlsaW0oMCxOQSkKCmdnc2F2ZSgifi9CdXJlYXUvRmlnNF9NTS9DUi1HZW5lc190cmVuZF9XVC1LTy5wZGYiLAogICAgICAgd2lkdGggPSA1LCBoZWlnaHQgPSAyLAogICAgICAgZGV2aWNlID0gInBkZiIsCiAgICAgICBkcGkgPSAicmV0aW5hIikKYGBgCgojIyBVc2UgbW9ub2NsZTIgdG8gbW9kZWwgZ2VuZSBleHByZXNzaW9uIGFsb25nIGN5Y2xpbmcgYXhpcwoKYGBge3J9CnJtKGxpc3QgPSBscygpWyFscygpICVpbiUgYygiV1QuS08uaW50ZWdyYXRlZCIpXSkKZ2MoKQpgYGAKCiMjIyBJbml0aWFsaXplIGEgbW9ub2NsZSBvYmplY3QKCmBgYHtyfQojIFRyYW5zZmVyIG1ldGFkYXRhCkFubm90LmRhdGEgIDwtIG5ldygnQW5ub3RhdGVkRGF0YUZyYW1lJywKICAgICAgICAgICAgICAgICAgIGRhdGEgPSBkYXRhLmZyYW1lKEJhcmNvZGU9IFdULktPLmludGVncmF0ZWQkQmFyY29kZXMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBMaW5lYWdlPSBXVC5LTy5pbnRlZ3JhdGVkJExpbmVhZ2UsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBQc2V1ZG90aW1lPSBXVC5LTy5pbnRlZ3JhdGVkJFBzZXVkb3RpbWUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBQaGFzZT0gV1QuS08uaW50ZWdyYXRlZCRQaGFzZSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIEdlbm90eXBlPSBXVC5LTy5pbnRlZ3JhdGVkJG9yaWcuaWRlbnQpKQoKIyBUcmFuc2ZlciBjb3VudHMgZGF0YQp2YXIuZ2VuZXMgPC0gV1QuS08uaW50ZWdyYXRlZFtbIlJOQSJdXUB2YXIuZmVhdHVyZXMKCmZlYXR1cmUuZGF0YSA8LSBuZXcoJ0Fubm90YXRlZERhdGFGcmFtZScsCiAgICAgICAgICAgICAgICAgICAgZGF0YSA9IGRhdGEuZnJhbWUoZ2VuZV9zaG9ydF9uYW1lID0gcm93bmFtZXMoV1QuS08uaW50ZWdyYXRlZFtbIlJOQSJdXUBjb3VudHNbdmFyLmdlbmVzLF0pLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvdy5uYW1lcyA9IHJvd25hbWVzKFdULktPLmludGVncmF0ZWRbWyJSTkEiXV1AY291bnRzW3Zhci5nZW5lcyxdKSkpCgojIENyZWF0ZSB0aGUgQ2VsbERhdGFTZXQgb2JqZWN0IGluY2x1ZGluZyB2YXJpYWJsZSBnZW5lcyBvbmx5CmdibV9jZHMgPC0gbmV3Q2VsbERhdGFTZXQoV1QuS08uaW50ZWdyYXRlZFtbIlJOQSJdXUBjb3VudHNbdmFyLmdlbmVzLF0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHBoZW5vRGF0YSA9IEFubm90LmRhdGEsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZlYXR1cmVEYXRhID0gZmVhdHVyZS5kYXRhLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBsb3dlckRldGVjdGlvbkxpbWl0ID0gMCwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZXhwcmVzc2lvbkZhbWlseSA9IG5lZ2Jpbm9taWFsKCkpCmBgYAoKYGBge3IgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRSwgY2FjaGU9VFJVRX0KZ2JtX2NkcyA8LSBlc3RpbWF0ZVNpemVGYWN0b3JzKGdibV9jZHMpCmdibV9jZHMgPC0gZXN0aW1hdGVEaXNwZXJzaW9ucyhnYm1fY2RzKQpnYm1fY2RzIDwtIGRldGVjdEdlbmVzKGdibV9jZHMsIG1pbl9leHByID0gMC4xKQpgYGAKCmBgYHtyfQpybShsaXN0ID0gbHMoKVshbHMoKSAlaW4lIGMoIldULktPLmludGVncmF0ZWQiLCAiZ2JtX2NkcyIpXSkKZ2MoKQpgYGAKCiMgUGxvdCBXVCBDUiBkeW5hbWljIGdlbmVzIGFsb25nIFdUIGFuZCBLTyB0cmFqZWN0b3JpZXMKCiMjIEFsbCBDUiBlbnJpY2hlZCBnZW5lcyBpZGVudGlmaWVkIGluIHRoZSBXVCBkYXRhc2V0CgpgYGB7ciBjYWNoZT1UUlVFfQojIExvYWQgV1QgQ1IgdmFyaWFibGUgZ2VuZXMgYWxvbmcgcHNldWRvdGltZQpXVC5DUi5nZW5lcyA8LSByZWFkLnRhYmxlKCIuLi9DYWphbFJldHppdXNfdHJhamVjdG9yeS9DUl9keW5hbWljX2dlbmVzLmNzdiIsIHNlcCA9ICI7IiwgaGVhZGVyID0gVCkKCiMgRXh0cmFjdCBDUiBsaW5lYWdlIGluIGJvdGggZ2Vub3R5cGVzCkNSLnBEYXRhIDwtIHBEYXRhKGdibV9jZHMpICU+JSBzdWJzZXQoTGluZWFnZSA9PSAiQ2FqYWwtUmV0eml1c19uZXVyb25zIikKCiMgQ3JlYXRlIGEgbmV3IHBzZXVkb3RpbWUgdmVjdG9yIG9mIDMwMCBwb2ludHMKblBvaW50cyA8LSAzMDAKCm5ld19kYXRhID0gbGlzdCgpCmZvciAoR2Vub3R5cGUgaW4gdW5pcXVlKENSLnBEYXRhJEdlbm90eXBlKSl7CiAgbmV3X2RhdGFbW2xlbmd0aChuZXdfZGF0YSkgKyAxXV0gPSBkYXRhLmZyYW1lKFBzZXVkb3RpbWUgPSBzZXEobWluKENSLnBEYXRhJFBzZXVkb3RpbWUpLCBtYXgoQ1IucERhdGEkUHNldWRvdGltZSksIGxlbmd0aC5vdXQgPSBuUG9pbnRzKSwgR2Vub3R5cGU9IEdlbm90eXBlKQp9CgpuZXdfZGF0YSA9IGRvLmNhbGwocmJpbmQsIG5ld19kYXRhKQoKIyBTbW9vdGggZ2VuZSBleHByZXNzaW9uCkRpZmYuY3VydmVfbWF0cml4IDwtIGdlblNtb290aEN1cnZlcyhnYm1fY2RzW1dULkNSLmdlbmVzJEdlbmUsIENSLnBEYXRhJEJhcmNvZGVdLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRyZW5kX2Zvcm11bGEgPSAifnNtLm5zKFBzZXVkb3RpbWUsIGRmID0gMykqR2Vub3R5cGUiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJlbGF0aXZlX2V4cHIgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5ld19kYXRhID0gbmV3X2RhdGEsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29yZXM9IHBhcmFsbGVsOjpkZXRlY3RDb3JlcygpIC0gMikKYGBgCgpgYGB7cn0KUHNldWRvdGltZS5nZW5lcy5jbHVzdGVycyA8LSBjbHVzdGVyOjpwYW0oYXMuZGlzdCgoMSAtIGNvcihNYXRyaXg6OnQoRGlmZi5jdXJ2ZV9tYXRyaXhbLDMwMTo2MDBdKSxtZXRob2QgPSAicGVhcnNvbiIpKSksIGs9IDUpCgpDUi5HZW5lLmR5bmFtaXF1ZSA8LSBkYXRhLmZyYW1lKEdlbmU9IG5hbWVzKFBzZXVkb3RpbWUuZ2VuZXMuY2x1c3RlcnMkY2x1c3RlcmluZyksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgV2F2ZXM9IFBzZXVkb3RpbWUuZ2VuZXMuY2x1c3RlcnMkY2x1c3RlcmluZywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBHZW5lLkNsdXN0ZXJzID0gUHNldWRvdGltZS5nZW5lcy5jbHVzdGVycyRjbHVzdGVyaW5nKSAlPiUgYXJyYW5nZShHZW5lLkNsdXN0ZXJzKQoKcm93Lm5hbWVzKENSLkdlbmUuZHluYW1pcXVlKSA8LSBDUi5HZW5lLmR5bmFtaXF1ZSRHZW5lCkNSLkdlbmUuZHluYW1pcXVlJEdlbmUuQ2x1c3RlcnMgPC0gcGFzdGUwKCJDbHVzdC4iLCBDUi5HZW5lLmR5bmFtaXF1ZSRHZW5lLkNsdXN0ZXJzKQpgYGAKCmBgYHtyfQojIE9yZGVyIHRoZSByb3dzIHVzaW5nIHNlcmlhdGlvbgpkc3QgPC0gYXMuZGlzdCgoMS1jb3Ioc2NhbGUodChEaWZmLmN1cnZlX21hdHJpeFssMzAxOjYwMF0pKSwgbWV0aG9kID0gInBlYXJzb24iKSkpCnJvdy5zZXIgPC0gc2VyaWF0aW9uOjpzZXJpYXRlKGRzdCwgbWV0aG9kID0iUjJFIikgIyJSMkUiICNUU1AgIyJHVyIgIkdXX3dhcmQiCmdlbmUub3JkZXIgPC0gcm93bmFtZXMoRGlmZi5jdXJ2ZV9tYXRyaXhbLDMwMTo2MDBdW2dldF9vcmRlcihyb3cuc2VyKSxdKQoKIyBTZXQgYW5ub3RhdGlvbiBjb2xvcnMKcGFsIDwtIHdlc19wYWxldHRlKCJEYXJqZWVsaW5nMSIpCmFubm8uY29sb3JzIDwtIGxpc3QobGluZWFnZSA9IGMoR21uY19LTz0iIzAyNmM5YSIsIEdtbmNfV1Q9IiNjYzM5MWIiKSwKICAgICAgICAgICAgICAgICAgICBHZW5lLkNsdXN0ZXJzID0gYyhDbHVzdC4xID1wYWxbMV0gLCBDbHVzdC4yPXBhbFsyXSwgQ2x1c3QuMz1wYWxbM10sIENsdXN0LjQ9cGFsWzRdLCBDbHVzdC41PXBhbFs1XSkpCgoKcGhlYXRtYXA6OnBoZWF0bWFwKERpZmYuY3VydmVfbWF0cml4W2dlbmUub3JkZXIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYygzMDA6MSwjS08gCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAzMDE6NjAwKV0sICNXVAogICAgICAgICAgICAgICAgICAgc2NhbGUgPSAicm93IiwKICAgICAgICAgICAgICAgICAgIGNsdXN0ZXJfcm93cyA9IEYsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX2NvbHMgPSBGLAogICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9yb3cgPSBDUi5HZW5lLmR5bmFtaXF1ZSAlPiUgZHBseXI6OnNlbGVjdChHZW5lLkNsdXN0ZXJzKSwKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fY29sID0gZGF0YS5mcmFtZShsaW5lYWdlID0gcmVwKGMoIkdtbmNfS08iLCJHbW5jX1dUIiksIGVhY2g9MzAwKSksCiAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uX2NvbG9ycyA9IGFubm8uY29sb3JzLAogICAgICAgICAgICAgICAgICAgc2hvd19jb2xuYW1lcyA9IEYsCiAgICAgICAgICAgICAgICAgICBzaG93X3Jvd25hbWVzID0gRiwKICAgICAgICAgICAgICAgICAgIGZvbnRzaXplX3JvdyA9IDgsCiAgICAgICAgICAgICAgICAgICBib3JkZXJfY29sb3IgPSBOQSwKICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIHZpcmlkaXM6OnZpcmlkaXMoOSksCiAgICAgICAgICAgICAgICAgICBicmVha3MgPSBzZXEoLTIuNSwyLjUsIGxlbmd0aC5vdXQgPSA5KSwKICAgICAgICAgICAgICAgICAgIG1haW4gPSAiIikKYGBgCmBgYHtyfQpnZW5lLm9yZGVyIDwtIGdlbmUub3JkZXJbYygzODI6NjIyLDE6MzgxKV0KCmhlYXRtYXAuZ2VuZSA8LSBwaGVhdG1hcDo6cGhlYXRtYXAoRGlmZi5jdXJ2ZV9tYXRyaXhbZ2VuZS5vcmRlciwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYygzMDA6MSwjUGFsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIDMwMTo2MDApXSwgI0NSCiAgICAgICAgICAgICAgICAgICAgICAgc2NhbGUgPSAicm93IiwKICAgICAgICAgICAgICAgICAgICAgICBjbHVzdGVyX3Jvd3MgPSBGLAogICAgICAgICAgICAgICAgICAgICAgIGNsdXN0ZXJfY29scyA9IEYsCiAgICAgICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9yb3cgPSBDUi5HZW5lLmR5bmFtaXF1ZSAlPiUgZHBseXI6OnNlbGVjdChHZW5lLkNsdXN0ZXJzKSwKICAgICAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uX2NvbCA9IGRhdGEuZnJhbWUobGluZWFnZSA9IHJlcChjKCJHbW5jX0tPIiwiR21uY19XVCIpLCBlYWNoPTMwMCkpLAogICAgICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fY29sb3JzID0gYW5uby5jb2xvcnMsCiAgICAgICAgICAgICAgICAgICAgICAgc2hvd19jb2xuYW1lcyA9IEYsCiAgICAgICAgICAgICAgICAgICAgICAgZ2Fwc19jb2wgPSBjKDIwMCw0MDApLAogICAgICAgICAgICAgICAgICAgICAgIHNob3dfcm93bmFtZXMgPSBGLAogICAgICAgICAgICAgICAgICAgICAgIGZvbnRzaXplX3JvdyA9IDgsCiAgICAgICAgICAgICAgICAgICAgICAgYm9yZGVyX2NvbG9yID0gTkEsCiAgICAgICAgICAgICAgICAgICAgICAgY29sb3IgPSAgdmlyaWRpczo6dmlyaWRpcyg5KSwKICAgICAgICAgICAgICAgICAgICAgICBicmVha3MgPSBzZXEoLTIuNSwyLjUsIGxlbmd0aC5vdXQgPSA5KSwKICAgICAgICAgICAgICAgICAgICAgICBtYWluID0gIldUIENSIGVucmljaGVkIGdlbmVzIGFsb25nIEdtbmNLTyBhbmQgR21uY1dUIENSIHRyYWplY3RvcmllcyIpCgpwZGYoIn4vQnVyZWF1L0ZpZzRfTU0vaGVhdG1hcF9GaWcyR2VuZXNfV1QtS08ucGRmIiwgd2lkdGg9NSwgaGVpZ2h0PTUpCmdyaWQ6OmdyaWQubmV3cGFnZSgpCmdyaWQ6OmdyaWQuZHJhdyhoZWF0bWFwLmdlbmUkZ3RhYmxlKQpkZXYub2ZmKCkKYGBgCgpgYGB7cn0KYW5uby5jb2xvcnMgPC0gbGlzdChDZWxsLnN0YXRlID0gYyhDeWNsaW5nX1JHPSIjMDQ2YzlhIiwgRGlmZmVyZW50aWF0aW5nX2NlbGxzPSIjZWJjYjJlIiksCiAgICAgICAgICAgICAgICAgICAgR2VuZS5DbHVzdGVycyA9IGMoQ2x1c3QuMSA9cGFsWzFdICwgQ2x1c3QuMj1wYWxbMl0sIENsdXN0LjM9cGFsWzNdLCBDbHVzdC40PXBhbFs0XSwgQ2x1c3QuNT1wYWxbNV0pKQoKY29sLmFubm8gPC0gZGF0YS5mcmFtZShDZWxsLnN0YXRlID0gcmVwKGMoIkN5Y2xpbmdfUkciLCJEaWZmZXJlbnRpYXRpbmdfY2VsbHMiKSwgYygxMDAsMjAwKSkpCnJvd25hbWVzKGNvbC5hbm5vKSA8LSAzMDE6NjAwCgpwaGVhdG1hcDo6cGhlYXRtYXAoRGlmZi5jdXJ2ZV9tYXRyaXhbZ2VuZS5vcmRlciwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjKDMwMTo2MDApXSwgI0NSCiAgICAgICAgICAgICAgICAgICBzY2FsZSA9ICJyb3ciLAogICAgICAgICAgICAgICAgICAgY2x1c3Rlcl9yb3dzID0gRiwKICAgICAgICAgICAgICAgICAgIGNsdXN0ZXJfY29scyA9IEYsCiAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uX3JvdyA9IENSLkdlbmUuZHluYW1pcXVlICU+JSBkcGx5cjo6c2VsZWN0KEdlbmUuQ2x1c3RlcnMpLAogICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9jb2wgPSBjb2wuYW5ubywKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fY29sb3JzID0gYW5uby5jb2xvcnMsCiAgICAgICAgICAgICAgICAgICBnYXBzX2NvbCA9IDEwMCwKICAgICAgICAgICAgICAgICAgIHNob3dfY29sbmFtZXMgPSBGLAogICAgICAgICAgICAgICAgICAgc2hvd19yb3duYW1lcyA9IEYsCiAgICAgICAgICAgICAgICAgICBmb250c2l6ZV9yb3cgPSA4LAogICAgICAgICAgICAgICAgICAgYm9yZGVyX2NvbG9yID0gTkEsCiAgICAgICAgICAgICAgICAgICBjb2xvciA9ICB2aXJpZGlzOjp2aXJpZGlzKDkpLAogICAgICAgICAgICAgICAgICAgYnJlYWtzID0gc2VxKC0yLjUsMi41LCBsZW5ndGgub3V0ID0gOSksCiAgICAgICAgICAgICAgICAgICBtYWluID0gIldUIENSIGVucmljaGVkIGdlbmVzIGFsb25nIEdtbmNLTyBhbmQgR21uY1dUIENSIHRyYWplY3RvcmllcyIpCmBgYApgYGB7cn0KYW5uby5jb2xvcnMgPC0gbGlzdChDZWxsLnN0YXRlID0gYyhDeWNsaW5nX1JHPSIjMDQ2YzlhIiwgRGlmZmVyZW50aWF0aW5nX2NlbGxzPSIjZWJjYjJlIiksCiAgICAgICAgICAgICAgICAgICAgR2VuZS5DbHVzdGVycyA9IGMoQ2x1c3QuMSA9cGFsWzFdICwgQ2x1c3QuMj1wYWxbMl0sIENsdXN0LjM9cGFsWzNdLCBDbHVzdC40PXBhbFs0XSwgQ2x1c3QuNT1wYWxbNV0pKQoKcGhlYXRtYXA6OnBoZWF0bWFwKERpZmYuY3VydmVfbWF0cml4W2dlbmUub3JkZXIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYygxOjMwMCldLCAjQ1IKICAgICAgICAgICAgICAgICAgIHNjYWxlID0gInJvdyIsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX3Jvd3MgPSBGLAogICAgICAgICAgICAgICAgICAgY2x1c3Rlcl9jb2xzID0gRiwKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fcm93ID0gQ1IuR2VuZS5keW5hbWlxdWUgJT4lIGRwbHlyOjpzZWxlY3QoR2VuZS5DbHVzdGVycyksCiAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uX2NvbCA9IGRhdGEuZnJhbWUoQ2VsbC5zdGF0ZSA9IHJlcChjKCJDeWNsaW5nX1JHIiwiRGlmZmVyZW50aWF0aW5nX2NlbGxzIiksIGMoMTAwLDIwMCkpKSwKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fY29sb3JzID0gYW5uby5jb2xvcnMsCiAgICAgICAgICAgICAgICAgICBzaG93X2NvbG5hbWVzID0gRiwKICAgICAgICAgICAgICAgICAgIHNob3dfcm93bmFtZXMgPSBGLAogICAgICAgICAgICAgICAgICAgZ2Fwc19jb2wgPSAxMDAsCiAgICAgICAgICAgICAgICAgICBmb250c2l6ZV9yb3cgPSA4LAogICAgICAgICAgICAgICAgICAgYm9yZGVyX2NvbG9yID0gTkEsCiAgICAgICAgICAgICAgICAgICBjb2xvciA9ICB2aXJpZGlzOjp2aXJpZGlzKDkpLAogICAgICAgICAgICAgICAgICAgYnJlYWtzID0gc2VxKC0yLjUsMi41LCBsZW5ndGgub3V0ID0gOSksCiAgICAgICAgICAgICAgICAgICBtYWluID0gIldUIENSIGVucmljaGVkIGdlbmVzIGFsb25nIEdtbmNLTyBDUiB0cmFqZWN0b3JpZXMiKQpgYGAKCmBgYHtyIHdhcm5pbmc9RkFMU0V9CkNSIDwtIFdULktPLmludGVncmF0ZWRAbWV0YS5kYXRhICU+JSBmaWx0ZXIoTGluZWFnZSA9PSAiQ2FqYWwtUmV0eml1c19uZXVyb25zIikgJT4lIHNlbGVjdChCYXJjb2RlcyxQc2V1ZG90aW1lLG9yaWcuaWRlbnQpCgpDUi5nZW5lcyA8LSBhcy5kYXRhLmZyYW1lKHQoV1QuS08uaW50ZWdyYXRlZEBhc3NheXMkUk5BQGRhdGFbYygiR21uYyIsIlRycDczIiwgIkxoeDEiLCAiQmFyaGwyIiksQ1IkQmFyY29kZXNdKSkKQ1IuZ2VuZXMkUHNldWRvdGltZSA8LSBDUiRQc2V1ZG90aW1lCkNSLmdlbmVzJEdlbm90eXBlIDwtIGZhY3RvcihDUiRvcmlnLmlkZW50LCBsZXZlbHMgPSBjKCJIZW0xIiwgIkdtbmNfS08iKSApIAoKQ1IuZ2VuZXMgIDwtIHJlc2hhcGUyOjptZWx0KENSLmdlbmVzLCBpZCA9IGMoIlBzZXVkb3RpbWUiLCAiR2Vub3R5cGUiKSkKCgpnZ3Bsb3QoQ1IuZ2VuZXMsIGFlcyh4PSBQc2V1ZG90aW1lLCB5PSB2YWx1ZSkpICsKICBnZW9tX3Ntb290aChtZXRob2Q9ImxvZXNzIiwgbj0gNTAsIGFlcyhjb2xvcj0gdmFyaWFibGUsIGxpbmV0eXBlPSBHZW5vdHlwZSkpICsKICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPSBjKHdlc19wYWxldHRlKCJGYW50YXN0aWNGb3gxIilbMTozXSx3ZXNfcGFsZXR0ZSgiRmFudGFzdGljRm94MSIpWzVdKSkgKwogIHlsaW0oMCxOQSkKCmdnc2F2ZSgifi9CdXJlYXUvRmlnNF9NTS9NZWRpYWwtQ1JfR2VuZXMtdHJlbmRfV1QtS08ucGRmIiwKICAgICAgIHdpZHRoID0gNSwgaGVpZ2h0ID0gMiwKICAgICAgIGRldmljZSA9ICJwZGYiLAogICAgICAgZHBpID0gInJldGluYSIpCmBgYAoKIyMgVEYgb25seQoKYGBge3J9CiMgU2V0IGFubm90YXRpb24gY29sb3JzCnBhbCA8LSB3ZXNfcGFsZXR0ZSgiRGFyamVlbGluZzEiKQphbm5vLmNvbG9ycyA8LSBsaXN0KGxpbmVhZ2UgPSBjKEdtbmNfS089IiMwMjZjOWEiLCBHbW5jX1dUPSIjY2MzOTFiIiksCiAgICAgICAgICAgICAgICAgICAgR2VuZS5DbHVzdGVycyA9IGMoQ2x1c3QuMSA9cGFsWzFdICwgQ2x1c3QuMj1wYWxbMl0sIENsdXN0LjM9cGFsWzNdLCBDbHVzdC40PXBhbFs0XSwgQ2x1c3QuNT1wYWxbNV0pKQoKVEZzIDwtIHJlYWQudGFibGUoIlRGLmNzdiIsIHNlcCA9ICI7IilbLDFdCgpnZW5lLm9yZGVyIDwtIGdlbmUub3JkZXJbZ2VuZS5vcmRlciAlaW4lIFRGc10KCmhlYXRtYXAuZ2VuZSA8LSBwaGVhdG1hcDo6cGhlYXRtYXAoRGlmZi5jdXJ2ZV9tYXRyaXhbZ2VuZS5vcmRlciwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjKDMwMDoxLCNLTyAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIDMwMTo2MDApXSwgI1dUCiAgICAgICAgICAgICAgICAgICAgICAgc2NhbGUgPSAicm93IiwKICAgICAgICAgICAgICAgICAgICAgICBjbHVzdGVyX3Jvd3MgPSBGLAogICAgICAgICAgICAgICAgICAgICAgIGNsdXN0ZXJfY29scyA9IEYsCiAgICAgICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9yb3cgPSBDUi5HZW5lLmR5bmFtaXF1ZSAlPiUgZHBseXI6OnNlbGVjdChHZW5lLkNsdXN0ZXJzKSwKICAgICAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uX2NvbCA9IGRhdGEuZnJhbWUobGluZWFnZSA9IHJlcChjKCJHbW5jX0tPIiwiR21uY19XVCIpLCBlYWNoPTMwMCkpLAogICAgICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fY29sb3JzID0gYW5uby5jb2xvcnMsCiAgICAgICAgICAgICAgICAgICAgICAgc2hvd19jb2xuYW1lcyA9IEYsCiAgICAgICAgICAgICAgICAgICAgICAgc2hvd19yb3duYW1lcyA9IFQsCiAgICAgICAgICAgICAgICAgICAgICAgZm9udHNpemVfcm93ID0gOCwKICAgICAgICAgICAgICAgICAgICAgICBib3JkZXJfY29sb3IgPSBOQSwKICAgICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICB2aXJpZGlzOjp2aXJpZGlzKDkpLAogICAgICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHNlcSgtMi41LDIuNSwgbGVuZ3RoLm91dCA9IDkpLAogICAgICAgICAgICAgICAgICAgICAgIG1haW4gPSAiV1QgQ1IgZHluYW1pYyBURnMgYWxvbmcgR21uY1dUIGFuZCBLTyB0cmFqZWN0b3JpZXMiKQpgYGAKCiMgREVHIGdlbmVzIGluIHRoZSBLTwoKIyMgRmluZCBERUcgaW4gdGhlIEtPCgpgYGB7ciBjYWNoZT1UUlVFfQpLTy5wRGF0YSA8LSBwRGF0YShnYm1fY2RzKSAlPiUgc3Vic2V0KEdlbm90eXBlID09ICJHbW5jX0tPIikKCnBzZXVkby5tYXR1cmF0aW9uLmRpZmYgPC0gZGlmZmVyZW50aWFsR2VuZVRlc3QoZ2JtX2Nkc1tmRGF0YShnYm1fY2RzKSRudW1fY2VsbHNfZXhwcmVzc2VkID4gODAsIEtPLnBEYXRhJEJhcmNvZGVdLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZ1bGxNb2RlbEZvcm11bGFTdHIgPSAifnNtLm5zKFBzZXVkb3RpbWUsIGRmID0gMykqTGluZWFnZSIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmVkdWNlZE1vZGVsRm9ybXVsYVN0ciA9ICJ+c20ubnMoUHNldWRvdGltZSwgZGYgPSAzKSIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29yZXMgPSBwYXJhbGxlbDo6ZGV0ZWN0Q29yZXMoKSAtIDIpCgojIEZpbHRlciBnZW5lcyBiYXNlZCBvbiBGRFIKcHNldWRvLm1hdHVyYXRpb24uZGlmZi5maWx0ZXJlZCA8LSBwc2V1ZG8ubWF0dXJhdGlvbi5kaWZmICU+JSBmaWx0ZXIocXZhbCA8IDFlLTQwKQpgYGAKCmBgYHtyIGNhY2hlPVRSVUV9CiMgQ3JlYXRlIGEgbmV3IHBzZXVkby1EViB2ZWN0b3Igb2YgMzAwIHBvaW50cwpuUG9pbnRzIDwtIDMwMAoKbmV3X2RhdGEgPSBsaXN0KCkKZm9yIChMaW5lYWdlIGluIHVuaXF1ZShLTy5wRGF0YSRMaW5lYWdlKSl7CiAgbmV3X2RhdGFbW2xlbmd0aChuZXdfZGF0YSkgKyAxXV0gPSBkYXRhLmZyYW1lKFBzZXVkb3RpbWUgPSBzZXEobWluKEtPLnBEYXRhJFBzZXVkb3RpbWUpLCBtYXgoS08ucERhdGEkUHNldWRvdGltZSksIGxlbmd0aC5vdXQgPSBuUG9pbnRzKSwgTGluZWFnZT1MaW5lYWdlKQp9CgpuZXdfZGF0YSA9IGRvLmNhbGwocmJpbmQsIG5ld19kYXRhKQoKIyBTbW9vdGggZ2VuZSBleHByZXNzaW9uCkRpZmYuY3VydmVfbWF0cml4IDwtIGdlblNtb290aEN1cnZlcyhnYm1fY2RzW2FzLmNoYXJhY3Rlcihwc2V1ZG8ubWF0dXJhdGlvbi5kaWZmLmZpbHRlcmVkJGdlbmVfc2hvcnRfbmFtZSksIEtPLnBEYXRhJEJhcmNvZGVdLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRyZW5kX2Zvcm11bGEgPSAifnNtLm5zKFBzZXVkb3RpbWUsIGRmID0gMykqTGluZWFnZSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmVsYXRpdmVfZXhwciA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmV3X2RhdGEgPSBuZXdfZGF0YSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb3Jlcz0gcGFyYWxsZWw6OmRldGVjdENvcmVzKCkgLSAyKQpgYGAKCiMjIENvbXB1dGUgdGhlIEFCQyBmb3IgZWFjaCBnZW5lCgpgYGB7cn0KIyBFeHRyYWN0IG1hdHJpeCBjb250YWluaW5nIHNtb290aGVkIGN1cnZlcyBmb3IgZWFjaCBsaW5lYWdlcwpQYWxfY3VydmVfbWF0cml4IDwtIERpZmYuY3VydmVfbWF0cml4WywgMTpuUG9pbnRzXSAjUGFsbGlhbCBwb2ludHMKQ1JfY3VydmVfbWF0cml4IDwtIERpZmYuY3VydmVfbWF0cml4WywgKG5Qb2ludHMgKyAxKTooMiAqIG5Qb2ludHMpXSAjQ1IgcG9pbnRzCgojIERpcmVjdGlvbiBvZiB0aGUgY29tcGFyaXNvbiA6IHBvc3RpdmUgQUJDcyA8PT4gVXByZWd1bGF0ZWQgaW4gQ1IgbGluZWFnZQpBQkNzX3JlcyA8LSBDUl9jdXJ2ZV9tYXRyaXggLSBQYWxfY3VydmVfbWF0cml4CgojIEF2ZXJhZ2UgbG9nRkMgYmV0d2VlbiB0aGUgMiBjdXJ2ZXMKSUxSX3JlcyA8LSBsb2cyKENSX2N1cnZlX21hdHJpeC8gKFBhbF9jdXJ2ZV9tYXRyaXggKyAwLjEpKSAKICAKQUJDc19yZXMgPC0gYXBwbHkoQUJDc19yZXMsIDEsIGZ1bmN0aW9uKHgsIG5Qb2ludHMpIHsKICAgICAgICAgICAgICAgICAgYXZnX2RlbHRhX3ggPC0gKHhbMTooblBvaW50cyAtIDEpXSArIHhbMjooblBvaW50cyldKS8yCiAgICAgICAgICAgICAgICAgIHN0ZXAgPC0gKDEwMC8oblBvaW50cyAtIDEpKQogICAgICAgICAgICAgICAgICByZXMgPC0gcm91bmQoc3VtKGF2Z19kZWx0YV94ICogc3RlcCksIDMpCiAgICAgICAgICAgICAgICAgIHJldHVybihyZXMpfSwKICAgICAgICAgICAgICAgICAgblBvaW50cyA9IG5Qb2ludHMpICMgQ29tcHV0ZSB0aGUgYXJlYSBiZWxvdyB0aGUgY3VydmUKICAKQUJDc19yZXMgPC0gY2JpbmQoQUJDc19yZXMsIElMUl9yZXNbLG5jb2woSUxSX3JlcyldKQpjb2xuYW1lcyhBQkNzX3Jlcyk8LSBjKCJBQkNzIiwgIkVuZHBvaW50X0lMUiIpCgojIEltcG9ydCBBQkMgdmFsdWVzIGludG8gdGhlIERFIHRlc3QgcmVzdWx0cyB0YWJsZQpwc2V1ZG8ubWF0dXJhdGlvbi5kaWZmLmZpbHRlcmVkIDwtIGNiaW5kKHBzZXVkby5tYXR1cmF0aW9uLmRpZmYuZmlsdGVyZWRbLDE6NF0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgQUJDc19yZXMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcHNldWRvLm1hdHVyYXRpb24uZGlmZi5maWx0ZXJlZFssNTo2XSkKYGBgCgojIyBLTyBDYWphbC1SZXR6aXVzIGNlbGxzIHNwZWNpZmljIHRyYWplY3RvcnkgYW5hbHlzaXMKCmBgYHtyfQojIEV4dHJhY3QgQ2FqYWwtUmV0eml1cyBleHByZXNzZWQgZ2VuZXMKQ1IucmVzIDwtIGFzLmRhdGEuZnJhbWUocHNldWRvLm1hdHVyYXRpb24uZGlmZi5maWx0ZXJlZFtwc2V1ZG8ubWF0dXJhdGlvbi5kaWZmLmZpbHRlcmVkJEFCQ3MgPiAwLF0pCkNSLmdlbmVzIDwtIHJvdy5uYW1lcyhDUi5yZXMpCgpDUl9jdXJ2ZV9tYXRyaXggPC0gQ1JfY3VydmVfbWF0cml4W0NSLmdlbmVzLCBdCmBgYAoKYGBge3J9ClBzZXVkb3RpbWUuZ2VuZXMuY2x1c3RlcnMgPC0gY2x1c3Rlcjo6cGFtKGFzLmRpc3QoKDEgLSBjb3IoTWF0cml4Ojp0KENSX2N1cnZlX21hdHJpeCksbWV0aG9kID0gInBlYXJzb24iKSkpLCBrPSA1KQoKQ1IuR2VuZS5keW5hbWlxdWUgPC0gZGF0YS5mcmFtZShHZW5lPSBuYW1lcyhQc2V1ZG90aW1lLmdlbmVzLmNsdXN0ZXJzJGNsdXN0ZXJpbmcpLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBXYXZlcz0gUHNldWRvdGltZS5nZW5lcy5jbHVzdGVycyRjbHVzdGVyaW5nLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBHZW5lLkNsdXN0ZXJzID0gUHNldWRvdGltZS5nZW5lcy5jbHVzdGVycyRjbHVzdGVyaW5nLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBxLnZhbCA9IENSLnJlcyRxdmFsLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBBQkNzPSBDUi5yZXMkQUJDcwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApICU+JSBhcnJhbmdlKEdlbmUuQ2x1c3RlcnMpCgpyb3cubmFtZXMoQ1IuR2VuZS5keW5hbWlxdWUpIDwtIENSLkdlbmUuZHluYW1pcXVlJEdlbmUKQ1IuR2VuZS5keW5hbWlxdWUkR2VuZS5DbHVzdGVycyA8LSBwYXN0ZTAoIkNsdXN0LiIsIENSLkdlbmUuZHluYW1pcXVlJEdlbmUuQ2x1c3RlcnMpCgp3cml0ZS50YWJsZShDUi5HZW5lLmR5bmFtaXF1ZSwgIktPX0NSX2R5bmFtaWNfZ2VuZXMuY3N2Iiwgc2VwID0gIjsiLCBxdW90ZSA9IEYsIHJvdy5uYW1lcyA9IEYpCmBgYAoKYGBge3J9CiMgT3JkZXIgdGhlIHJvd3MgdXNpbmcgc2VyaWF0aW9uCmRzdCA8LSBhcy5kaXN0KCgxLWNvcihzY2FsZSh0KENSX2N1cnZlX21hdHJpeCkpLCBtZXRob2QgPSAicGVhcnNvbiIpKSkKcm93LnNlciA8LSBzZXJpYXRpb246OnNlcmlhdGUoZHN0LCBtZXRob2QgPSJSMkUiKSAjIlIyRSIgI1RTUCAjIkdXIiAiR1dfd2FyZCIKZ2VuZS5vcmRlciA8LSByb3duYW1lcyhDUl9jdXJ2ZV9tYXRyaXhbZ2V0X29yZGVyKHJvdy5zZXIpLF0pCgojIFNldCBhbm5vdGF0aW9uIGNvbG9ycwpwYWwgPC0gd2VzX3BhbGV0dGUoIkRhcmplZWxpbmcxIikKYW5uby5jb2xvcnMgPC0gbGlzdChsaW5lYWdlID0gYyhLT19QYWxsaWFsX25ldXJvbnM9IiMwMjZjOWEiLCBLT19DYWphbF9SZXR6aXVzPSIjY2MzOTFiIiksCiAgICAgICAgICAgICAgICAgICAgR2VuZS5DbHVzdGVycyA9IGMoQ2x1c3QuMSA9cGFsWzFdICwgQ2x1c3QuMj1wYWxbMl0sIENsdXN0LjM9cGFsWzNdLCBDbHVzdC40PXBhbFs0XSwgQ2x1c3QuNT1wYWxbNV0pKQoKCnBoZWF0bWFwOjpwaGVhdG1hcChEaWZmLmN1cnZlX21hdHJpeFtnZW5lLm9yZGVyLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGMoMzAwOjEsI1BhbCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIDMwMTo2MDApXSwgI0NSCiAgICAgICAgICAgICAgICAgICBzY2FsZSA9ICJyb3ciLAogICAgICAgICAgICAgICAgICAgY2x1c3Rlcl9yb3dzID0gRiwKICAgICAgICAgICAgICAgICAgIGNsdXN0ZXJfY29scyA9IEYsCiAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uX3JvdyA9IENSLkdlbmUuZHluYW1pcXVlICU+JSBkcGx5cjo6c2VsZWN0KEdlbmUuQ2x1c3RlcnMpLAogICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9jb2wgPSBkYXRhLmZyYW1lKGxpbmVhZ2UgPSByZXAoYygiS09fUGFsbGlhbF9uZXVyb25zIiwiS09fQ2FqYWxfUmV0eml1cyIpLCBlYWNoPTMwMCkpLAogICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9jb2xvcnMgPSBhbm5vLmNvbG9ycywKICAgICAgICAgICAgICAgICAgIHNob3dfY29sbmFtZXMgPSBGLAogICAgICAgICAgICAgICAgICAgc2hvd19yb3duYW1lcyA9IEYsCiAgICAgICAgICAgICAgICAgICBmb250c2l6ZV9yb3cgPSA4LAogICAgICAgICAgICAgICAgICAgY29sb3IgPSAgdmlyaWRpczo6dmlyaWRpcyg5KSwKICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHNlcSgtMi41LDIuNSwgbGVuZ3RoLm91dCA9IDkpLAogICAgICAgICAgICAgICAgICAgbWFpbiA9ICIiKQpgYGAKCmBgYHtyfQpwaGVhdG1hcDo6cGhlYXRtYXAoRGlmZi5jdXJ2ZV9tYXRyaXhbZ2VuZS5vcmRlcltjKDIzNToxLDI5MjoyMzYpXSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjKDMwMDoxLCNQYWwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAzMDE6NjAwKV0sICNDUgogICAgICAgICAgICAgICAgICAgc2NhbGUgPSAicm93IiwKICAgICAgICAgICAgICAgICAgIGNsdXN0ZXJfcm93cyA9IEYsCiAgICAgICAgICAgICAgICAgICBjbHVzdGVyX2NvbHMgPSBGLAogICAgICAgICAgICAgICAgICAgYW5ub3RhdGlvbl9yb3cgPSBDUi5HZW5lLmR5bmFtaXF1ZSAlPiUgZHBseXI6OnNlbGVjdChHZW5lLkNsdXN0ZXJzKSwKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fY29sID0gZGF0YS5mcmFtZShsaW5lYWdlID0gcmVwKGMoIktPX1BhbGxpYWxfbmV1cm9ucyIsIktPX0NhamFsX1JldHppdXMiKSwgZWFjaD0zMDApKSwKICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25fY29sb3JzID0gYW5uby5jb2xvcnMsCiAgICAgICAgICAgICAgICAgICBzaG93X2NvbG5hbWVzID0gRiwKICAgICAgICAgICAgICAgICAgIHNob3dfcm93bmFtZXMgPSBGLAogICAgICAgICAgICAgICAgICAgZm9udHNpemVfcm93ID0gOCwKICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIHZpcmlkaXM6OnZpcmlkaXMoOSksCiAgICAgICAgICAgICAgICAgICBicmVha3MgPSBzZXEoLTIuNSwyLjUsIGxlbmd0aC5vdXQgPSA5KSwKICAgICAgICAgICAgICAgICAgIG1haW4gPSAiIikKYGBgCgoKIyBTZXNzaW9uIEluZm8KCmBgYHtyfQojZGF0ZQpmb3JtYXQoU3lzLnRpbWUoKSwgIiVkICVCLCAlWSwgJUgsJU0iKQoKI1BhY2thZ2VzIHVzZWQKc2Vzc2lvbkluZm8oKQpgYGA=